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02000 

269 

SYSE8IT 

EQU' 

0 200-08 

INDICATES SYSTEM UNIT EQUIPPED 

040 GO 

269+00 
27 0 

1 RUNG8IT 

EQU 

040008 
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TQM 

Q 

0 0 011 

5373004b 


364 


TIM 

83, X3 

000 12 

53630047 




TIM 

8 2 , X 2 

0 0013 

53530050 


366 


TIM 

Bi , Xi 

0 0 014 

53020044 


367 


TMA 

10 

0 0 015 

17476237 


1 3 63 


. A N A f S 

-XeUFBIT-OBUFBIT- 

0 0 016 

53 2 3 0 0 45 


369 


TMI 

REQUEST,X2 

0 0017 

05200003 


370 


ISG 

3 , X 2 

0 0020 

01000022 

P 

37 i 


UJP 

* + 2 

0 0 021 

16601000 


3 72 


XOA 

STATBIT 

0 0 0 2 2 

53420044 


373 


TAM 

IO 

0 0 0 2 3 

04200005 


374 


ISE 

RILLINS-DECODE,X2 

0 0 024 

01000026 

P 

o / is* 


UJP 

*+2 

0 0 02 5 

01 0 0 0 0 31 

P ... 

376 


UJP 

ENTER04 

0 0 0 26 

14100031 

P 

37 7 


ENI 

ENTERQ4,XI 

0 0 027 

04200002 


3 76 


ISE 

RCSA-OECODE,X2 

0 0 030 

01001141 

P 

37 9 


UJP 

OUTLINE 

0 0 0 31 

53230045 


38 0 

ENTER04 

TMI 

REQUEST,X2 

0 0032 

53020045 


381 


TMA 

REQUEST 

0 0 033 

53330053 


332 


TMI 

T2,X3 

0 0 034 

05200025 


383 


ISG 

ERMAX,X2 

0 0 0 35 

01200047 

P 

384 


UJP 

DECODE,X2 

0 0 036 

01000036 

P 

3 85 


UJP 


0 0037 

53730053 


387 

ENTER 82 

TIM 

12, XS 

0 0 0 4 0 

14100031 

P 

•38 8 


ENI ■ 

ENTER04,XI 

0 0 041 

04600002 


38 9 


ASE 

ROSA-DECODE 

00042 

01001141 

P 

39 0 


UJP 

OUTLINE 

Q 0 0 43 

01 0.0 0 0 31 

P 

39.1 


UJP . 

■ENTER. 04 

0 0 0 4 4 

35002665 

P : ' ' 

38 3 

REENTER 

SS A 

BIT23 

0 0 0 4 5 

53420045 


394 


TAM 

REQUEST 

0 0 046 

01-00Q00U 

P 

.395 


UJP ■ 

ENTER 


* 

* 

3 ? 


' V V V ' 


* *>« - 


ENTER HERE 

GET TYPE OF CONTROL MODE 

BIT 20 SEZ THE PHANTOM 

JUMP IF THE PHANTOM 

GET JOB NUMBER 

JUMP IF NOT LQ6GEO-IN 

TEST FOR ERROR IN CONTROL MODE 

JUMP IF A RE-ENTER 

SAVE Q 


GET 10 STATUS WORD 
STATBIT-FLASHBIT 

GET THE REQUEST CODE 

SKIP TO PRINT THE USERS STATUS 

CALL THE STATUS ROUTINE 


RETURN ADDRESS 
SKIP IF CONTROL-A 
OTHERWISE, CR-LF 
GET ERROR CODE 
ERROR CODE TO A 
GET LUN 

CHECK FOR ILLEGAL CODE 
DECODE LEGAL CODES 
THIS SHOULD MOT HAPPEN 


SAVE LUN 

SKIP IF CONTROL-A 

SUPRESS CR-LF AFTER CONTROL-A 


CD 

0 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o. 

o 

o 


o 
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CNTLHODE 



0 0 0 4 7 

P 

397 

DECODE 

EQU 

0 0 0 47 

01000047 

P 

39 8 


UJP 

U 0 0 5 0 

01000050 

P 

399 


UJP 

0 01) 51 

.010 0 0 16 7 

r~i 

r 

400 

RC3A 

UJP 

0 0 0 5 2 

01000221 

p 

4 01 

RTIME CUT 

UJP 

0 0 053 

01000164 

p 

402 


UJP 

0 U 0 54 

01000225 

p 

40 3 

RILLIN3 

UJP 

U 0055 

01000211 

p 

40 4 


UJP 

0 0 056 

01000217 

p 

4 0 5 


UJP 

00067 

010 0 2 L 5 5 

p 

40 6 


UJP 

0 0060 

01000373 

p 

40 7 


UJP 

0 0 061 

01000377 

p 

408 


UJP 

0 0 062 

Old 004 0 3 

p 

409 


UJP 

0 0 063 

01000205 

p 

410 


UJP 

0 0 064 

01000223 

p 

411 


UJP 

0 0 0 65 

01004657 

p 

412 

RWARN 

UJP 

0 0 0 66 

01000213 

p 

413 


UJP 

0 0 057 

01000200 

p 

414 


UJP 

0 00 70 

01000407 

p 

415 

RABORT 

UJP 

0 0 07.1 

01004573 

p 

416 

RLOGQFF 

UJP 

0 0 0 7 2 

01004563 

p 

417 

RQPTERM 

UJP 

0 00 73 

01004621 

p 

416 

RVANISH 

UJP 


0 0025 


419 

ERMAX 

EQU 


0 0 0 74 

53020044 


421 

SBJP 

IMA 

0 0 075 

17476777 


422 


ANA/S 

0 0 076 

53420044 


42 3 


TAM 

0 0 077 

17300001 


424 


AN I 

0 010 0 

04300001 


425 


ISE 

0 0101 

01000106 

P 

426 


UJP 

00102 

14200017 


42 7 


ENI 

0 0103 

14100007 


423 


ENI 

00104 

71200000 


429 


X.RfcQ 

0 0105 

02600103 

P 

430 


IJQ 


0 0106 

P 

431 

S8JP02 

EQU 

0 0106 

53020044 


43 2 


IMA 

0 010 7 

17477757 


. . '433 


AMA,S 

0 0110 

55010077 


434 


TMQ 

00111 

05500000 


435 


QSG,S 

0 OliZ 

53420044 


436 


TAM 

0 0113 

55020077 


43 7 


TMA 

0 0114 

12000024 


438 


SHA 

0 0115 

03200147 

p 

439 


AZJ,GE 

0 0116 

53020077 


44 0 


TMA 

0 0117 

17477767 


441 


'AHA ,S 

0 0.12 0 

534200 11 


442 


TAM 

0 0121 

05300147 

P 

443 


AZJj.LT 

0 0122 

55020075 


4 4 


TMA 

00123 

53420052 


. 445 


TAM 

0 0124 

12000006 


446 


SHA . 

00.125 

17600077 


44 7' # 


ANA 

0 0126 

53&QQ000 


448 


TAI 

0 0127 

05600012 


.449 


ASG 

0 013 0 

01000147 

P 

45 0 


UJP 

0 0131 

20002700 

P 

451 


LDA 

0 0132 

05200060 


452 


ISG 

0 015 3 

05200030 


45 3 


ISG 

0 0134 

20002701 

P 

45 4 


LDA 

0 0135 

12200000 


45 5 


SHA 

0 0136 

03200147 

P 

45 6 


AZJ,GE 

0 0137 

53010076 


45 7 


TMQ 

0 0140 

53410053 


458 


TQM 

0 0141 

14300143 

P 

459 


ENI 

0 0142 

01003004 

P 

460 


UJP 

0 0143 

53020047 


461 


TMA 

00144 

53420054 


46 2 


TAM 

0 0145 

05100001 


46 3 


ISG 

0 0146 

01000574 

P 

464 


UJP 

0 014 7 

1410 0 0 16 


465 

SBJP0 4 

ENI 

0 015 0 

71000000 


46 b 


XREQ 

0 0151 

14100.153 

P 

46 7 


ENI 

0 0152 

01001141 

P 

46 8 


UJP 

0 0153 

53230047 


46 9 


T MI 

0 0154 

0260Q424 

P 

47 0 


IJD 

0 0155 

53020044 


471 

AUXGLEAi' 

< TMA 

0 015 6 

176 0 012 3 


47 2 


ANA 

00157 

04600001 


475 


ASE 


G3A 

TIMECUT 

CCREAO 

ILL INS 

INSFIL 

FPV 

LUNUC 

RE 00 

WC.Z 

WCTL 

OF A XL 

A3NI0 

WARNR 

HPV 

H PE 

OPA SORT 
L OG OF FR 
OPTERM 
LOGVANSH 
--DECODE 


00B—LOGIN REQUEST 
010—NOT USED 

028—ENTRY BY CONTROL-A OR TV * 

0 3D—TINE C UT 

040—ENTRY BY READING A CONTROL C 

058—ILLEGAL INSTRUCTION 

06B—INSUFFICIENT FILE SPACE 

078—FILE PROTECT VIOLATION 

iOB—LUN UNDEFINED 

118—READ AT END OF DATA 

128 —WORD COUNT IS ZERO 

138—WORD COUNT TOO LARGE 

148—DRIVE FAILURE 

153—ABNORMAL I/O CONDITION 

168—WARNING OF SYSTEM ENDING 

176—MEMORY PROTECT VIOLATION 

208—MEMORY PARITY ERROR 

218 — OPERA3GR ABORT 

228—LOGOFF REQUEST 

238—OPERATOR TERMINATION 

248—VANISH, LOGOFF FIRST 


10 

-STATBIT CLEAR STATUS BIT 

10 

1, X 3 GET LAST BIT OF THE 

1,X3 S8JP INSTRUCTION. 

SBJP02 JUMP IF A SBJP XXXO 

±73,X2 
ZERCPAGE * XI 

0,X2 ZERO THE LOWER CORE 

*-2*X2 


10 

-AUXOIT 

RF77 

0 

IQ 

RF77 

SBJP 04 
RF77 ■ 

777678■ 
RF7 7 
S3JP04 
RF75 

11 . 

6 ■ 

7 78 
X2 
10 

SBJP 04 
ALPHA! 

6 Q 8 , X 2 
308,X2 
ALPHA2 
0*X2 
SBJP04 
RF 7 6 
12 

*+2,X3 
EQSYS 
B2 
T 3 

1, Xi 
MCI 4 

PURGE,XI 
XREG 


STOP PROCESSING THE DO UNIT 
IF THE ABORT BIT IS SET 


CHECK THE LOAD OVERLAY BIT 
REMOVE THE LOAD-OVERLAY BIT 


DO NOT LOAD OVERLAY IF ABORTED 
GET THE FILE NAME 

GET 'I HE FIRST CHARACTER 

CHECK IT FOR A LEGAL FILENAME 
SKIP IF NOT A DIGIT 


JUMP IF NOT A LEGAL FILENAME 

GET THE REST OF THE 

FILENAME 

RETURN ADDRESS 

TRY AND EQUIP THE OVERLAY 

PUT USERS 82 INTO T3 BECAUSE 

LATER ON T3 WILL BE PUT IN 82 

SKIP IF ERRORS 

LOAD THE OVERLAY 

PURGE ANY PARAMETER STRING 

UPON FINDING A SBJP INSTRUCTION 


- + 2,XI 
OUTLINE 

82,X2 GET USERS X2 

MC,X2 JUMP IF ERRORS 

10 

SYSMASK^AUXBIT+QBUFBIT 

TVSYS SKIP IF TV 
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ASSEMBLER/033 Vi. 0 

0 5/2 4/74 1604 

RAGE 

11 CNTLMOOE 




0 0 i & 0 

U 0161 

01000424 

14600014 

P 

474 

4 7 o 


ujp 

ENA 

f\?CHAR 


a 

0016 2 

14300424 

P 

47 b 


E NI 

HC, X3 

RETURN ' 


0 016 3 

01001031 

P 

47 7 


UJP 

OUTCHAR 

BLANK OUT SCREEN 

o 

0 0164 

14113140 


4 73 

COREA0 

OUT 

Ml0 2 »LINEEND 

ILLEGAL READ—CONTROL CARD 

o 

0 016 7 

53020045 


431 

CS A 

THA 

REQUEST 


0 017 0 

53010044 


432 


T MU 

10 



0 0171 

17700003 


43 3 


ANQ 

SYSMASK 

GET TYPE OF SYSTEM 

o 

0 017 2 

04500000 


434 


QSE j S 

ttysys 

SKIP IF A TELETYPE 

0 017 3 

03301272 

P 

435 


A2J.LT 

ERMSX 

LIST THE SCREEN IF A RE-ENTER 


0 0174 

53020044 


43 6 


THA 

10 



0 0175 

17477717 


487 


ANA , S 

-AUXBIT-IBUF8IT 

CLEAR 00 BIT AND INPUT BUFFER BIT 

o 

0 0176 

53420044 


488 


TAM 

10 


0 017 7 

01000431 

P 

48 9 


UJP 

MG 01 



0 020 0 

53020044 


491 

HPE 

THA 

10 

MEMORY PARITY ERROR *** 

o 

002 01 

17477637 


492 


ANA »S 

-1BUF8IT-0BUFBIT 

CLEAR BUFFER PRESENT BITS 


Q 0 2 0 2 

5 3 4 2 0 U 4 4 


493 


TAM ■ 

10 



00203 

14112420 


494 


£RsT 

M71 

MEMORY PARITY ERROR 

o 



00205 P 

49 6 

OF AIL 

EQU 

* 

TAPE DRIVE FAILURE 

o 

0 0 2 05 

0 3 3 0 0 2 07 P ■ 

49 1 


AZJ *LT 

* + 2 

JUMP IF RE-ENTER (LUN IN X3> 

0 0206 

53330052 

498 


TMI 

Ti,X3 

PUT LUN IN X3 


00207 

14112444 

499 


EC HI 

M72»X1 

DRIVE FAILURE 


0U2.10 

01002167 P 

50 0 


UJP 

E 0 3 A 

PRINT LUN 

o 



00211 P 

5 02 

IN3FIL 

EQU 


INSUFFICIENT FILE SPACE 

O 

0 0211 

14112467 

50 3 


E.CHI 

H73»Xt 

INSUFFICIENT FILE SPACE 

0 0212 

01002167 p 

5 0 k 


UJP 

: EQ3A 

PRINT LUN 

O 

0 0213 

14100017 

5 06 

ii P V 

■£NI 

■RMP,X 1 

MEMORY PROTECT VIOLATION 

00214 

71000000 

50 7 


XREQ 

0+XREQ 

REMOVE MEMORY PROTECTION 


0 0215 

14112524 

5 0 8 


E8H 

H 74 

MEMORY PROTECT VIOLATION 

o 



00217 P 

51 0 

FPV 

EQU 


FILE PROTECT VIOLATION 

O 

0 0217 

14112555 

511 

FPV1 

ECHI 

H75 f X 1 

FILE PROTECT VIOLATION 

V 

0 0220 

01002167 P 

512 


...ujp,....: ... 

. £ 8 .3 A , 

PRINT THE LUN 

O 

00221 

14112611 

514 

TIMEOUT 

ERM ■ 

H77 

TIME CUT 


O 



00223 P 

6 16 

ABNIG 

EQU 


ABNORMAL 

I/O 

CONDITION 


00223 

0 0 224 

14112622 

01002167 P 

517 

518 

.. E 7 2 

ECHI 

UUP 

H7 8 f XI 

E0 3A 

ABNORMAL 

I/O 

CONDITION 

o 


O 

O 

O 

o 


o 
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0 0 225 

03 3 0 2166 

P 

52 0 

IL LIN 3 

AZJ.LT 

E 0 3 

JUMP IF RE-ENTRY 

ENTER RETURN ADDRESS 

0 0226 

14601272 

P 

521 


ENA 

ERMSX 

DU 227 

53420054 


5 2 2 

ILLINSX 

TAM 

T 3 

SAME RETURN ADDRESS IN T3 

0 02 JO 

53020053 


52 3 


TNA 

T 2 


.0 0231 

12077763 


524 


SHA 

-12 


0 0232 

14577762 


525 


ENQ,S 

77762B 

SBJP INSTRUCTION 

0 0 2 J 3 

03400074 

P 

52 6 


A Q J , E Q 

SOJP 

TREATE S3JP AS LEGAL 

0 0 2 34 

14100236 

P ■ 

527 


E NI 

“• + 2 , XI 


0 02 35 

01001141 

P 

526 


UJP 

OUTLINE 


0 0236 

14112656 


529 


OUT 

H79 

ILLEGAL INSTRUCTION 

0 0241 

53020053 


530 


THA 

T 2 

GET THE INSTRUCTION 

0 0 242 

13077755 


5 31 


SHAQ 

-18 

GET THE OPCODE 

0 02 43 

17600077 


53 2 


ANA 

773 


0 0244 

03000361 

P 

533 


A Z J j E Q 

ILLHALT 

JUMP IF A 008 

00245 

53500000 


534 


TAI 

XI 

OPCODE TO XI 

0 02^6 

05100071 


535 


ISG 

718,XI 

SKIP IF A SYSTEM INSTRUCTION 

0 0 247 

01000366 

P 

536 


UJP 

ILLUO 

SDP ILLEGAL INSTRUCTION 

0 0 250 

01100160 

P 

53? 


UJP 

*+l-71B,Xl 

DECODE THE INSTRUCTION 

0 0 251. 

01000274 

P 

538 


UJP 

ILLXREQ 

7IB—XREQ 

0 0 252 

01000315 

P 

539 


UJP 

ILLCNTL 

728—CNTL 

0 0253 

01000352 

P 

540 


UJP 

ILLSEEK 

73B—SEEK 

0 0254 

01000355 

P 

541 


UJP 

ILLREAO 

74B—READ 

0 0 255 

Oi000366 

P 

54 2 


UJP 

ILLUO ■ 

750—UNDEFINED 

0 0 256 

01000357 

P 

54 3 


UJP 

ILLHRITE • 

766 —WRITE 

0 0 2 5 7 

12477755 


544 


3HQ 

-18 

778—SPECIAL INSTRUCTIONS 

00260 

05500000 


545 


QSG j 3 

Q . 

CHECK SUB-OPCODE 

0 0 261 

05577775 


5 4 6 


Q SG, b 

7777 50 


0 0 2 6 2 

01000366 

P 

54 7 


UJP 

ILLUO 

JUMP IF NOT 77.75 - 77.77 

00263 

05577776 


548 


QSG > S 

777768 

SKIP IF 77.76 OR 77.77 

0 0264 

010 0 02 72 

P 

649 


UJP 

ILL.GTI 

JUMP IF 77.75 CCTI ) 

0 0 265 

14113030 


550 


£C HI 

M96,X1 

UCS 

0 0 26 6 

05577777 


551 


QSfa g S 

777778 

SKIP IF 77.77 (UCS) 

0 026 7 

14113034 


552 


ECHI 

H97,XI 

CTQ 

00270 

14200304- 

P 

553 

ILL77 

£ N I 

A 00GUT , X2 

RETURN ADDRESS 

0 02 71 

01001256 

P 

55 k 

555 

556 


UJP , 

MESSAGE 

PRINT TYPE OF INSTRUCTION 

00272 

14113040 


1LLGTI 

£CHI 

M98 , XI 

CTI 

00273 

01000273 

P 

■ 557 


JjJP 

ILL 7 7 



0 0 274 

1411,2 70 3 

559 

ILLXREQ 

OUT 

M80 

XREQ 

0 0277 

5 3 0i0 0 5 0 

56 0 


THQ 

61 

GET USERS XI (SUB-OPCODE) 



561. 





0 0 3 0 0 

12400011 

b 6 2 

4 A R GOUT 1 

SHQ 

9 

LEFT JUSTIFY 

0 0 3 01 

14200005 

■ 56.3. 


OCT PRINT 

5 

PRINT 5 OCTAL DIGITS 

0 0304 

14112711 

564 

AODOUT " 

OUT 

MSI 

AT 

0 03 0 7 

53020041 

565 


THA 

PC 

GET THE PROGRAM COUNTER 

0 0310 

37002653 P 

566 


LP'A 

PCMASK 

REMOVE EXTRA BITS 

0 0 311 

13 0 7 7 7 5 5 

56 7 


SHAQ 

-18 

HOVE INTO Q 

0 0312 

14200006 

56 S 


ENI 

6,X2 

INDICATE 6 DIGITS 

0 0 313 

5 313 0 0 5- 4 

5 69 



13, XI 

RETURN ADDRESS 

0 U 314 

01001135 P 

57 0 


U-JP 

GOTOUT 

PRINT THE OCTAL PC 


0 0 315 

53130051 

5-7 2 

ILLCNTL THI 

Q* XI 

GET USERS Q 

0 0316 

05100010 

573 

ISG 

FUNLIM,XI 

SKIP IF TOO LARGE 

0 0317 

U25U0325 P 

574 

IJD 

ILLFUNXtXi 

JUMP IF A FUNCTION 

0 0 320 

14112717 

575 

OUT 

M82 

CNTL 

0 0 323 

53010051 

576 

THQ 

Q 

GET Q CSU8—OPCODE) 

0 0324 

01000300 P 

577 

UJP 

ARGOUT 

PRINT THE SUB-OPCODE 


0 0 325 

20100331 

P 

57 9 

ILLFUNX EDA 

F'JNNAME,X1 

GET THE MESSAGE ADDRESS 

0 0326 

53500000 


58 0 

TAI 

XI 


0 0 327 

14200341 

P 

581 

ENI 

I0LUN.X2 

RETURN 

0 0 3 3 0 

01001265 

P 

582 

UJP 

MESSAGE 

PRINT THE FUNCTION NAME 



00331 P 

58 4 

FUNNAME EQU 


DECODE TYPE OF LEGAL CNTL 

0 0 331 

00012725 

5 8 5 

ERROR 

M3 4 

CLEAR 

0 0 3 32 

00012733 

58 6 

ERROR 

M35 

WFM 

0 0 333 

00012737 

587 

ERROR 

M 8 6 

RELEASE 

00334 

00012747 

588 

ERROR 

M 8 7 

REWIND 

U0335 

00012756 

5 3 9 

ERROR 

M3 3 . 

SEFF 

0 fl 3 3 6 

00 0.12763 

59 0 

ERROR 

r) 3 9 

SEFB 
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0 0337 

0 U 3 4 0 

00012770 

00012775 


591 

59 2 


ii R R O R 
ERROR 

M9U 

H 91 

BKSP 

FMSP 


0) 


0 0 0 1U 


59 3 

FUNLIM 

EQU 

■” -FUNNAME 



0 

0 0 341 

14111066 


595 

I0LUN 

OUT 

MO 2 A 

PRINT LUN 



G .0 344 

53020053 


596 


TMA 

T 2 



o 

0 0 345 

17677777 


597 


ANA 

777778 



0 0 346 

1410U35U 

P 

598 


ENI 

*+2,X1 



0 0 347 

01001360 

P 

599 


UJP 

or oi 




0 035 0 

b 3 6 3 U 0 5 4 


600 


TIM 

T 3 » X 2 

RESTORE T3 



0 0351 

01000304 

P 

601 


U'JP 

ADDOUT 



o 

0 0 362 

14113002 


6 0S' 

' ILLSEEK 

ECHI 

M92»XI 

SEEK 


o 

G G 3 5 3 

14200341 

P 

604 

ILLIO 

ENI 

IOLUN,X2 

RETURN 


00354 

01001266 

P 

6 0 6 


UJP 

MESSAGE 

PRINT INSTRUCION TYPE 


o 

0 0355 

14113007 


60 7 

ILLREAO 

ECHI 

M93,X1 

READ 



0 0 356 

01000353 

P 

60 8 


UJP 

ILL IG 



o 

00357 

14113014 


610 

ILLWRITE 

ECHI 

M94.X1 




0 0 360 

01000353 

P 

611 


UJP 

ILLIO 



o 

0 0 361 

14113022 


613 

ILLHALT 

OUT 

H 9 5 

HALT 


o 





4r * 4® * * * & 
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615 


ENA 

ILLHJMP 

RETURN HERE 

3r 





616 

4r 

TAM 

T 3 

SAVE ADDRESS 

4? 






4® 4r '.."V 1 4r !?• -v 4r 4r Jp 

•v- 4p t 4r 4r 4“ v- -v* "V 

4® Jjj£. If. 4r. 4r. 4r- 4P 4 r 4r* 4r 4r 

.***■ *jr ■$*. 4f* -c •v. *st' 4^ “V *9T r**' *** *v -v 4F. -v rjf* -r v 4* -v 4r *n® 4P - 4? f 4? -r r or >"• -Rr t •'»- ^r -r t v 

o 

0 0 364 

53010053 


618 


TMQ 

12 

GET THE INSTRUCTION 


0 0 365 

01000300 

P 

619 


UJP 

AR6GUT 

OUTPUT ADDRESS 








4® 4® 4* 4^ 4?* rlr 

V ? T $ T ^ T 4£ 4® ^ 

& “$• ^ ^ ^ 4r ^ ^ 4? 4* ^ 4^ 4* 4f- ^ ^ 4r ^ 4*’ 4? 4?* 4r 4* ^ 4r •& 4r -v- 

*4? 





621 

# • 




¥ 

o 




622 

*I.LLH JMP 

TMQ 

TZ 

GET INSTRUCTION. 




' 

623 

& 

SHQ 

9 


4? 





624 

*v* •' 

TMA 

PC 

GET BANK NUMBER 






625 

& 

SHA 

-15 

SIMULATE A JUMP 

4< 

; \ O 




626 

■ ' 4r, ' 

SHAQ 

15 


# 




627 


TAM 

PC 

. SAVE NEW ADDRESS 

4? 





626 


UJP 

ERMSX 








-V*' *$ ,4£ "I* v *#■ ^ 

«jjs« aiijjtL Jyj*> ^ 

4® ^ 4£ ^ 3r 4P- 

•v” •V' 4P •§“ ^ 44- 4® 4^ 4* 4r 4? 4® 4 s * 4® 4* ■ 4* 4® 4ir v 4* v 4r 4 C * 4^ 4r 4r ^ 4 4 ! * 4r 4r -V" 4® 


o 

0 0 366 

53010053 


631 ■ 

ILLUO 

TMQ 

12 . ■ 

INSTRUCTION TO Q 


o 

0 0 3 6 7 

14200010 


632 


OCT PRINT 

8 

OUTPUT OCTAL INSTRUCTION 


0 0372 

01000304 

P 

633 


UJP 

ADOQUT 

OUTPUT THE. ADDRESS 


o 

0 0373 

14600375 

P 

635 

REOD 

EH A . 

2 

RETURN ADDRESS 



0 03 74 

01000227 

P . .. 

6 36 


UJP 

ILLINSX 

TREAT AS AN ILLEGAL INSTRUCTION 



0 0 375 

14113044 


6 3 7 


ERM 

M99 

FILE AT END OF DATA 


o 

00377 

14600401 

P 

639 

«CZ 

ENA 

*■+2 

RETURN ADDRESS 


o 

0 0400 

01000227 

P 

64 0 


UJP 

ILLINSX 

TREAT AS AN ILLEGAL INSTRUCTION 


U04U1 

14113070 


6 41 


ERM 

Ml 0 0 

WORD COUNT IS ZERO 


■O 

0 040 3 

14600406 

P 

643 

WCTL 

ENA 

4'* -J. 2 

RETURN ADDRESS 



00404 

01000227 

P 

644 


UJP 

ILLINSX 

TREAT AS AN ILLEGAL INSTRUCTION 



0 0 4 0 5 

14113113 


645 


ERM 

Ml 01 

WORD COUNT TOO LARGE 


o 


o 

o 
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MODE 







647 

v *v r nr v v v v 

v v v v v v -5r v v v 

V V V V V V V V V V V V V V V V V 

V V 

v n~ v v v v v v v r v -v v v nr v v v v y v v-v v ^ v -v v v-¥ v v nr nr 




64 9 * 








65 0 * 

MAIN CONTROL. THIS SECTION 

DECODES THE CONTROL * 




651 


STATEMENTS 

AND THEN JUMPS TO THE * 




65 2 + 


ROUTINE THAT 

WILL PROCESS THE * 




65 3 * 


STATEMENT. 


* 




65 4 * 




* 




nr -£• nr *r -»■* -v* * 4 * nr nr nr v *v* nr nr nr v -v* -v 

nr nr nr ~r Ar nr nr v v v v v v v '/■ -r T 

t r v v r v t v r v v v -r y v v -r v t nr v *v nr nr nr nr 6 “ 




656 






0 040 7 

P •' ■ 

657 0PA80RT 

EQU 

V 



a 0 4 0 7 

53020044 


65 8 

T M A 

10 


GET 10 FLAGS 

00410 

17477637 


65 9 

A N A , S 

-IBUFBIT-OBUFBIT 


REMOVE INPUT AND OUTPUT SUFFERS 

0 0411 

53420044 


66 0 

TAM 

10 


AND PUT THEM BACK 

0 0412 

14127721 


661 

ERM 

M 221 


OPERATOR ABORT MESSAGE 




662 





00414 

53020026 


663 ABORT 

TMA 

RF 2 6 


GET JOB NUMBER 

0 0415 

03304625 

P 

664 

A Z J f L T 

VANISH 


REMOVE PSA IF NOT LOGGED-IN 

0 0416 

5 3 0 2 0 0 71 


665 

TMA 

RF7 7 



0 0417 

35002665 

P 

666 

SS A 

BIT23 


SET THE ABORT BIT 

0 0 420 

53420077 


'667 

TAM 

RF? ? 



0 0421 

53020044 


668 HC20 

TMA 

10 


GET THE I/O BITS 

00422 

17476717 


669 

ANA >3 

-AUX8IT-IBUFBIT~ 

STATBIT 

00423 

53420044 


6 7 0 

TAM 

IQ 






671 





0 0424 

53020044 


67 2 HC 

TMA 

10 . 



00425 

17600023 


6 7 ? 

ANA./. 

SYSMASK+AUXBIT 


CHECK FOR TTY SYSTEM 

0 0426 

03100431 

P 

678 

AZJ »NE 



JUMP IF NOT A TTY 

00427 

14600243 


67 9 

ENA. 

TTYCHAR 



0 0 430 

777800 00' 


88 0 

CTO ■ 



PRINT A POUND SIGN 


0 0431 

P ■ 

681 HC01 

EQU 

■ 



0 0 431 

5 S 0 2 0 0 4 4 


6 8 .1 -f* 0 0 1 

TMA 

IO- 



0 0 4 3 2 

17602000 


681+002 

ANA 

SYSEBIT 



00433 

14300435 

p 

681+003 

EM I 

' *+2,X3 



00434 

03103027 

P 

681+004 

AZJ».NE 

UNEQSYS : 



0 0 435 

14200060 


682 

ENI 

• 6 0B : , X2 ; 7 


CLEAR END-OF-LINE CODE 

0 0436 

14100440 

p. ' ' ' ' 

86 3 

ENI 

++2,XI 



0 0437 

01001413 

p ' . . : 

6 8 4 

UJP / ■: 

.PACKER .. . 7 


■*** CALL THE PACKER 

0 044 0 

01000424 

P . ■ ■ . 

■ r“. 

•68.5 " 

. . "7.: 

.''TIC'' 


END-OF-LINE 

0 0 441 

010 005 76 

p 

68 6 

' UJP 

M C 3 2 


DECIMAL NUMBER 

00442 

350 0 2.6 77 

p 

68 7 

■ SC A 

BGQJOB 


BCD SYMBOL 

0 0 443 

03004605 

p 

688 

AZJ, EG' 

JOBR 


■ PROCESS JOB 

0 0444 

14100223 


689 

ENI 

CM.OOTBLNvXl 


LENGTH Of COMMAND TABLE 

0 0445 

53020052 


69 0- HC02 

THA 

’ j:T:l ■: ' 7 


GET UPPER Half OF SYMBOL 

0 0446 

14577777 


69 3 

fcIN.Q.i.S ." 

777 77 B 



0 0 44 7 

Ob-SU 0606 

p 

■ : 69 £ 

MEG 

CM00T.BL.,3 


SEARCH THE COMMAND TABLE 

0 0 450 

01000520 

■ p 

8:9 3 

' UJP 

wees ■ ■. 


NOT FOUND 

■00451 

5 3 0 2 U 0 5 3 


• 694 

TMA 

12 


GET SECOND HALF Or SYMBOL 

00452 

36100607 

p 

695 . 

sea 

GMOOTBL+1,Xi 



0 0 453 

03100445 

p 

696 

AZJ,NE 

' MC0 2 


SEARCH MORE IF NOT CORRECT 

0 0 454 

53 02 0 O' 4 4 


63? . . 7 . 

. TMA ... 

10 



0 0 46 5 

17600003 


69 8 

ANA 

SYSMASK 



00456 

04800002 


S99 

ASE 

TASKSYS 


SKIP IF THE TASK SYSTEM 

00457 

01000463 

p 

7 3 Q 

UJP 

'MG'04-77: 


NOT TASK 

0 0460 

5 3 0 2 0 0 7 7 


7 01 

THA 

R F 7 7 


TASK, GET THE ABORT BIT 

0 0 461 

37100610 

p. 

70 2: 

LPA 

CHOOTBL+2, XI 


NOT ABORT OR LEGAL IN ABORT 

0 0462 

03300421 

p 

703 

A Z J , L T 

MC20 


JUMP If NOT LEGAL 

0 046 3 

14300465 

p 

704 M C 0 4 

ENI 

*+2»X3 



0 0 464 

01001243 

p 

?9 5 

UJP 

FILEECHO ' 


TASK, PRINT THE LINE 

00465 

53020026 


70 6 

TMA 

RF 2 6 


GET JOB NUMBER 

00466 

12077775 


70 7 

S H A 

-2 


GET THE SIGN BIT 

0 0467 

37002661 

p 

70 8 

LPA 

8I.T21 


SELECT ONE BIT 

0 0 4 7 0 

37100610 

p 

709 

LPA 

CM00TBL+2,X1 


AND CHECK FOR MATCH WITH CMOOTBL 

0 0471 

03105617 

p 

710 

AZJ » NE 

LOGREG 


THEN ASK THE GUY TO LOG IN 

0 0472 

53020077 


71.1 

TMA 

RF7 7 


GET RESTRICTED BIT 

00473 

53010056 


712 

TMQ 

UOFLAGS 


GET THE UDFLAGS BITS 

0 0474 

37100610 

p 

713 ' 

LPA 

CHOOTBL+2,XI 


NOT RESTRICTED OR LEGAL ANYWAY 

0 04 75 

13 G O 00 01 


714 

SHAQ 

23-RSTRCTBT 



0 0 476 

05^00000 


715 

QSG,S 

0 



0 0 477 

03303766 

p 

716 

AZJ,IT 

£01 


JUMP IF NOT LEGAL 

0 0500 

53020044 


716+001 

TMA 

10 



00501 

17 6 0 4 0 0 U 


716 + 00.2 

ANA 

RUN OBIT 


GET RUN ONLY STATUS 

0 05 02 

03000514 

p 

716 + 0 0 3 

AZJ ,EG 

MG 0 5 


JUMP IF NOT RUN ONLY MODE 

0 0503 

20100610 

p 

716+004 

LOA 

CMODTBL+2,XI 


SEE IF THE COMMAND IS ALLOWED 

0 050 4 

12000003 


716+005 

SHA 

3 


IN RUN ONLY MODE. 

0 05 05 

032.00514 

p 

716+006 

AZJ, GE 

MCQ5 


JUMP IF IT IS OK, 

00506 

5 o’ 53 0 3 5 4 


716+007 

TIM 

T 3 , XI 


IT ISN*T SO WE WILL 

0 05 07 

53630055 


716+008 

TIM 

T 4 » X 2 


SAVE 

U 05.10 

14200512 

p 

716+009 

ENI 

*“+ 2 »X2 


PROTECT THE RUN ONLY PROGRAM. 


0 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

■O 

o 

o 

o 

o 

o 

o 

o 

o 
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CNTLHGDE 


0 0 511 

0 05 12 

01007547 
5 3 1 3 0 0 5 4 

P 

71 o + 0 i 1 





00513 

53230055 


716+012 

r m i 

T 4 > X 2 

RESTORE X2 



0 0 514 

P 

716+013 HO 05 

EQU 

v 



0 0514 

21100610 

P 

717 

LOQ 

GMODTBL+2 yXl 

GET FUNCTION CODE 


0 0 515 

05700024 


718 

QSG 

20 

SKIP IF NOT LEGAL 

FUNCTION 

0 0 616 

01002742 

P 

719 

UJP 

FUN 

GO TO PROCESS THE 

FUNCTION 

0 0517 

015 0 0 610 

P 

720 

UJP, I 

C HGOTBL+2 » X1 

JUMP TO THE PROPER 

ROUTINE 





n 

'•-j 


EMBLER/O 
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CNTLHOOE 








v v -v v v t v r v 

v v -r V v -i* v 

v v v v -v- v v t v 'r 4 -v- v v r -f v vr-v v v 

v r t v v v r v v v v v r v v v -r -v- v v '«- v v - 4 - v -v v v T v v -r v 

fh 




72 3 

V- 








724 


COMMAND 

NOT FOUND IN COMMAND 

TABLE * 





( zs 

V 

CHECK F 

OR USER OVERLAY 






7 2 6 



V V T V V V V V- V nr 6- T V V V v tt ”V- V V V 

•v 

V V V -r V V V- 'A A* V "V V "V- V V V V v- V -V -V V v- V V V V v- V T V -v- -v- -v- 

C& 




723 







0 0520 

P 

729 

MC 0 3 

EQU 




0 G b J U 

53020026 


73 0 


THA 

RF2 6 

GET JOB NUMBER 

o 

00521 

03305517 

O 

731 


A2J,LT 

LOGREQ 

ASK HIM TO LOG IN 


0 (J522 

53020044 


7 32 


TMA 

10 

GET IO CONDITIONS 


00523 

17600003 


733 


ANA 

SYSMASK 



0 0 524 

0460 00 0.2 


734 


ASE 

TASKSYS 

SKIP IF A TASK 

o 

0 05 25 

01000530 

P 

7 35 


UJP 

MC10 


V 

0 05 26 

53020077 


736 


TMA 

RF7? 

GET ABORT BIT 


0 0527 

0o30 0421 

P 

73 7 ■ 


A2J,LT 

MC2 0 

TASK, ABORT, IGNORE THE LINE 


0 0 530 

14300532 

P 

736 

M C10 

ENX 

*+2,X3 


O 

0-0 551 

01001243 

P 

738 


UJP 

FILEECHO 

LIST THE LINE IF TASK 

0 05 32 

53020077 


740 


THA 

RF7 7 

GET THE RESTRICTED SIT 


0 05 3 3 

53010056 


741 


TMQ 

UOFLAGS 



00534 

13000001 


742 


3HAQ 

23-RSTRCTBT 


o 

0 0535 

05500000 


743 


Q*SG,S 

0 



0 0536 

.Q33G 055 5 

P 

744 


A2J f L T 

MCI 3 

JUMP IF RESTRICTED 


005,37 

14100541 

P 

745 

MCI 2 

EH I 

*+2 f Xi 



0 0 5 4 0 

01001234 

P 

7 46 


UJP 

OUTBUF 

OUTPUT CURRENT BUFFER 

o 

0 0541 

14100543 

P 

747 


ENI 

* + 2 -s X 1 


0 0542 

01003535 

P 

748 


UJP 

PARAMOUT 

OUTPUT THE PARAMETER STRING 



00543 

P 

7484-001 

MC12X 

EQU 




0 0543 

53020052 


749 


TMA 

: T 1 

PUT NAME INTO AQ 

o 

0 0544 

53010053 


750 


TMQ 

T 2 


0 0545 

53230044 


750+001 


TM1 

10, X2 



0 0 5 46 

17204000 


750+002 


AMI 

RUNCBIT»X2 



0 0547 

02600600 

P 

750+003 


1JD 

HC44,X2 

JUMP IF ME ARE RUN ONLY 

o 

0 0 550 

53230054 


760+004 


TMX . 

T3,X2 

GET DELIMITER 

0 0551 

14377776 


751 


ENI 

— 1, X 3 



0 0552 

14100010 


752 


ENI 

LIBCALL,XI 



0 0553 

71000000 


753 


XREQ 

0+XREG 

ATTEMPT THE XREQ 

o 

0 05 54 

01000570 

P 

. 7* 5 4 


UJP 

MC13X 


0 0555 

53020052 


. 755. . 

MCI 3 

TMA 

Ji 

GET THE FILENAME 


0 0 55 6 

1200000& 


756 


SHA 

6 

CHECK THE FIRST CHARACTER 


00557 

1760007? 


757 


ANA 

778 


o 

.0 0550 

14 7 0 0 0 5 4 


75 8 


ENG : 

HF* £ 

PUBLIC FILES ARE ILLEGAL 

0 0561 

0 34 0 3766 

P 

759 


AQJ., EG 

E01 

PRINT ^ILLEGAL CONTROL 


0 0 562 

14700053 


759+001 


ENQ 




0 056 3 

03403766 

p 

75 9+ 0 0 2 


AQJ,EG 



o 

0 0 5 6 4 

14100566 

P ' 

.760 ■■ 


ENI 



00565 

01001234 

P 

761. 


UJP 

Jjoutbuf . . 

OUTPUT CURRENT BUFFER 


0 3 5 o 6 

14100570 

P 

762 


ENI 

■ # + 2,Xl' 



0 0.537 

01003535 

P 

763 


UJP 

PARAMOUT 

OUTPUT THE PARAMETER STRING 

0 

0 0570 

14300572 

P 

764 

HC13X 

ENI 

*+2,X3 


0 0571 

0x003004 

p 

765 


UJP " 

EQSYS. 

EQUIP THE OVERLAY 


0 0572 

02 5 0 37 66 

p 

766 



EQ1,X1 

EQUIP ERROR 


0 057 3 

14240000 


767 


' ENI 

400008,X2 

INDICATE CALL FROM MC 

o 

0 0574 

14377777 

X 

768 

.1014 

ENI 

SYSLUN,X3 

INDICATE TO USE SYSLUN 

0 0 5.75 

01.003620 

P 

769 


UJP 

OVL02 

TRY TO LOAD AN OVERLAY 





771 

T 



ILLEGAL CONTROL STATEMENT 

o 


00576 

P 

77 2 

MC32 

c QU 

Sf 



0 0576 

14303766 

P 

7 73 


ENI 

E 0 1» X 3 

RETURN ADDRESS 


0 0577 

01001243 

P 

77 k 


UJP 

FILEECHO 

LIST THE LINE IF TASK 

o 



0 0 6 0 0 

P 

774+002 MC44 

EQU 

* 


O 

0 060 0 

14100010 


774+003 

ENI 

LIBCALL,XI 


0 0 6 01 

71000001 


774+004 

XREQ 

1,XREG 

ASK IF THIS IS A LIBCALL 


0 0602 

04100001 


774+005 

ISE 

1,X1 

SKIP IF IT HAS A LIBCALL 


0 06 0 3 

01000570 

P 

774+006 

UJP 

MC13X 

JUMP IF IT HASNFT A LIBCALL 

O 

0 0 6 0 4 

14200543 

P 

774+007 

EMI 

HC12X ,X2 

GET OUT OF RUN ONLY MODE 

0 0 6 05 

01007547 

P 

774+008 

UJP 

SMASH 




O 


O 


o 
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CNTLMOuE 






V v V V V V V V V* 

nr 

nr v r v t v v ir v v v v nr v v v -r v v v n- v v v v v v nr v nr v v v v v v v nr v v nr v n* nr -nr -nr " 

' -v -v v v -r v v 



777 





n* 



77 3 

■V" 

COMMAND 

TABLE. EACH ENTRY HAS THE FOLLOWING FORMAT. 




7 7 9 

r 




* 



779+001 

V 

COMMAND 


P1,P2,P3,P4,P5,P6 

V 



761 

T 




X 



78 2 

■v*. 

PI — BCD 

NAME OF THE COMMAND. 

* 



783 

V 

P2 — ADDRESS OF THE ROUTINE THAT PROCESSES THE COMMAND 

& 



784 

nr 

OR 


THE CONTROL FUNCTION CODE. 

z 



785 

v 

P 3 — A 

IF LEGAL IN ABORT MODE, OTHERWIS OMITTED. 




786 

nr 

P4 — R 

IF LEGAL IN RESTRICTED MODE, OTHERWISE OMITTED. 




78 7 

nr 

P 5 — N 

IF LEGAL WITHOUT LOGGING IN 

* 



787+001 

' nr 

P 6 — RO 


IF LEGAL IN RUN ONLY MODE, OTHWISE OMITTED 

* 



788 





V 



79 0 

7 91 

nr r nr nr 4 v v nr v 

nr- nr v nr -v nr nr-nr nr 

nr 

v v nr t -y v v v -r v v y r r -f v y v v -n l v v n^ nr nf 1 v -r nrnr nr nr v v v v v ■+ n? -r v nr ¥ nr - 

it ****** * 


0 0 6 0 6 P 

CHODTBL 

L QU 


nr 


0 0 6 0b 

21432746 

792 


COMMAND 


ALGOL,OVCALL 


0.0611 

22426247 

793 


COMMAND 


BKSP,BKSP 


0 0614 

22512521 

794 


COMMAND 


BREAK,BREAKR 


0 0617 

23236060 

794+001 


COMMAND 


CC,CCR,,R,,RO 


00622 

23432521 

794+002 


COMMAND 


CLEAR,CLEAR 


U 0 625 

23462246 

796 


COMMAND 


COBOL,OVCALL 


00630 

23464447 

79 7' 


COMMAND 


COMPASS,OVCALL 


0 0 6 3 3 

24252342 

798 


COMMAND' 


DECKEDIT,OVCALL 


0 0636 

24252342 

79.9 


COMMAND 


DECKLIST,OVCALL 


0 0641 

24254326 

799+001 


COMMAND 


DELETE,DELETER,*,,RO 


0 0644 

2425626 3 

799+002 


COMMAND 


DESTROY,DESTROYR,, ,,R0 


0 0 547 

24315125 

799+003 


COMMAND 


.DIRECTOR,DIRECTOR 


GO 6 o Z 

24466 0'6 0 ■ 

799+004 


COMMAND 


DO,DOR 


0 0 655 

24644447 

8 04 


COMMAND 


DUMP,MC12,A 


0 0 & 6 0 

25 5 0 6 4 31 

805 


COMMAND 


EQUIP,EQUIPR 


00663 

2 h 4' 7 b 0 b Q 

8 0 6 


COMMAND 


FP*FPR 


0 0 666 

26465144 

80 7 


COMMAND 


FORMS,FORMSR 


0 0671 

26666247 

so.a 


command 


FHSP.,FWSP 


00674 

2 7 4 6 6 0 6 0 

808+001 


COMMAND 


GO,GGR,,R,,RO 


00677 

30254347 

8 0 S + 0 0 2 


COMMAND 


HELP,OVCALL 




810 

nr 

COMMAND 


LABEL,LA8ELR 


00 702 

43462746 

810 + 0 0:1 


COMMAND 


.LOGOFF ,LOGCFFR, A, R, ,RQ 


00705 

43644543 

812 


COMMAND 


LUNL1ST , LUNLISTR , A 


0 0710 

44255127 

813 


COMMAND 


MERGE,OVCALL 


0 0713 

4 4 2 6 2 ?. 4 d 

8 13+a01 


COMMAND 


MFBLKS , MFBLKSR,A,R, , RO 


00716 

44516060 

813+002 


COMMAND 


HI,MIR,,R,,RO 


00721 

46654346 

816 


COMMAND 


OVLOAD,OVLOADR 


00724 

51254325 

317 


COMMAND 


RE LEASE,RELEASE 


00727 

61254521 

818 


COMMAND 


RENAME , RE N ft HER 


00732 

51256225 

819 


COMM AMD. 


RESET,RESETR- 


0 0 735 

51256631 

820 


COMMAND 


REMIND,REWIND 


0 0 740 

51264760 

8 21 


COMMAND 


RFP » RFP-R 


00743 

62216525 

32 2 


COMMAND 


SAVE,SAVER 


0 0746 

62245160 

822+0,0.1 


COMMAND 


SDR , SDR 


0 0 751 

62252622 

828 


COMMAND. 


SEFS , SEF3 


3 07 54 

62252626 

624 


COMMAND 


SEFF , SEFF ' . 


00757 

62254524 

825 


COMMAND 


SEND,SENDR 


00762 

62262243 

825+091 


COMMAND 


SF.BLKS, SF8LKSR, A »R , ,RO 


0 0 765 

62642244 

825+092 


COMMAND 


SUBMIT,CMOVER,A 


0 0770 

62465163 

& 2 8 


COMMAND 


SORT,OVCALL 


0 0 773 

62632151. 

829 


COMMAND 


START,STARTK 


0 0 776 

62632163 

8 3 0 


COMMAND 


STATUS , STA TUSK,A 


010 01. 

63214725 

830+001 


COMMAND 


T A P E M A X, T H A X R , A , R, , R 0 


010 0 4 

633.14425 

830+002 


COMMAND 


TIME,TIMER,A,R,,R0 


01007 

63512126 

830+003 


COMMAND 


TRAFFIC,TRAFFICR,A,R»N,RO 


01012 

64452122 

830+004 


COMMAND 


UNABORT,ABORTCR,A,,,R0 


01015 

64452550 

8 34 


COMMAND 


UNEQUIP,UNEQUIPR 


01020 

66254626 

835 


COMMAND 


HEOF , WFM 


0102 3 

66 26446 0 

836 


COMMAND 


WFM , WFM 


J10 2 6 

67212246 

836+001 


COMMAND 


XABORT , XA80RTR,A, , ,RO 



00223 

838 

C MOOTBLN 

EQU 


+-CM0OTBL 



0 

6: 

3 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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841 

V 








842 

■V- • 

ROUTINE TO OUTPUT A BCD CHARACTER — OUTCHAR * 





843 

V 








844 

v 

A - 

CONTAINS BCD CHARACTER TO 

OUTPUT * 





845 

V 

X3- 

RETURN ADDRESS 

* 





846 

r 

Tl- 

CHANGED 






847 

•v 

Q - 

RESTORED 






848 


XI- 

RESTORED 

* 





849 


X 2 - 

RESTORED 






850 


T2- 

RESTORED 

Y 





851 

-f 



** 






v r t ; r y* 3r •¥■ 

r t -5r 

-y- ^ -v- -v- -v ^ 'A ^ * * # 

V TT "(T Y V ¥• ^ -ir *Y V J C -Y- Y Y Y Y Y ^ Y Y Y Y T V Y Y Y Y Y *Y- 





85 3 





010 31 

53630052 



854 

OUTCHAR 

TIM 

Tl, X2 

SAVE X2 

01032 

53250044 



8 5 5 


TMI 

10, X2 

GET TYPE OF OUTPUT UNIT 

010 3 3 

17200003 



856 


ANI 

SYSMASK* X2 


01034 

01201035 

p 


857 


UJP 

**1 ,X2 

DECODE OUTPUT TYPE 

iJ 10 5 b 

U10Q1U4U 

p 


358 


UJP 

•OCTTY 

TTY 

010 3 6 

01001066 

p 


859 


UJP 

OCT V 

TV 

01037 

01001066 

p 


860 


UJP 

OCLP 

LP OR FILE 

0 10 40 

53600000 



862 

OCTTY 

TAX 

X 2 


01041 

04600075 



86 3 


ASE 

H£t*£ 

IS IT A BACKSLASH 

01042 

01001047 

p 


86 4 


UJP 

4** 4» Cjj 

THEN IGNORE 

01043 

53020026 



■ 665 


TbA 

RF 26 

GET J08NUM.3ER 

01044 

03201064 

p 


86 6 


AZJi 

GE QCEXIT 

IF POSITIVE THEN FLAKE OUT 

01045 

14600012 



86? 


ENA 

Q12B 

LINE FEED CODE 

010 46 

01001063 

p 


■ 86 8 


UJP 

OCEXIT-1 

THEN PRINT IT EXIT 

01047 

13000030 



869 


SHAQ 

24 

SAVE Q IN A. 

010 5 0 

23413510 

P 

02722 0 

873 


LOCH 

BCDASCII f X2 

GET ASCII CODE 

0 1Q 51 

13000030 



871 


SHAQ 

24 

CHARACTER TO A 

010 52 

15600040 



67 2 


INA 

0400 

PLUS A SPACE 

01053 

53 6 0 0 0 0 0 



873 


TAX 

X2 

SAVE CHAR 

01054 

12000021 



87 k 


SHA 

24-7 

GET MOST SIGNIFICANT DATA BIT 

01055 

03201057 

■ p 


8 7 5 


AZJ t 

GE y+.2-: 


01056 

16200200 



8 76 


XOI 

. 2.0037X2. . 

FLOP THE PARITY BIT' 

01057 

120 0 000.1 



3 77 


. SHA- :■ 

ij, - 

HEX r BIT POSITION 

010 6 0 

17477776 



a? 8 


ANA * 

S . . 777-7SB .. 

MASK LEASTS SIG BIT OFF 

0 10 61 

031Q1055 

Q 


879 


AZJ» 

ME *-4 ’ ' 

JUMP BACK IF MORE TO BO 

010 62 

53200000 



8 8 0 


TIA 

X2 

GET THE CHAR < NOW WITH PARITY ) 

010 63 

77760030 



881 


■ CTO 



01064 

53230052: 



M Z 

OCEXIT 

TMI 

T1,X2 . 

.RESTORE X 2 

01065 

013 li 0 0 0 0 



8 S3 


' UJP 

. 04 X 3 ;■ 

RETURN 





884 






0 1 0 6 6 

rj 


865 

GO TV 

EQU 

: .*•■■ 


010 5 6 

45 0 a 0 0 0 0 

r\ 


8 8 e 

; OCLP 

STAG 

. 7 ASA'VE 

SAVE A AND Q • . 

01067 

53020044 



86 7 


IMA 

10 ■ 

CHECK FOR NO 

01070 

17600100 



868 


ANA 

OBUP8IT 

OUTPUT BUFFER 

010 71 

o 31 u 1 11 a 

D 


889 


AZJ* 

NE ■ 0 C 0 4 

JUMP If BUFFER IS SETUP 

010 72 

0 42 00 031 



89 Q: 


ISE 

T *• V C V O’ 

. . I- ^ -a I w> t Ac 

SKI? IF THE TV SYSTEM 

010 7 3 

14600004 



891 


ENA 

** 

START AT THE 4TH CHARACTER IF TAS 

010 74 

40400012 

C' 


892 


3 1 A 

G8UFP^ 

INITIALIZE POINTER TO l\F.XT CHARAC 

01075 

1460 0370 



893 


ENA 

TV8UFL-2 

LENGTH OF TV BUFFER 

01076 

04200001 



894 


ISE 

TVSYS*X2 

SKIP IF TV 

01077 

14600022 



895 


ENA 

LPBUFL-2 

LENGTH Of LP SUFFER 

0110 0 

53600000 



8 9 6 


TAX 

X2 

BUFFER LENGTH - 2 TO X2 

01101 

25001515 

P 


897 


LQAQ 

BLANKS 


01102 

452004Q7 

G 


898 


STAG 

OBUFtXZ 

BLANK FILL THE BUFFER 

U 110 3 

10600000 



899 


ISO 

04X2 


01104 

02601102 

P 


90 0 


IJD 

*-2,X2 


0 1105 

53020044 



901 


TM A 

IO 


01106 

16600100 



902 


XOA 

OBUF8IT 

INDICATE OUTPUT BUFFER EXISTS 

U 1107 

53420044 



9 0 3 


TAM 

IO 


OHIO 

54200012 

G 


904 

OC 04 

LOI 

OBUFP,X2 

GET THE CHARACTER COUNT 

01111 

25000000 

C 


905 


LOAQ 

AS A Vb 

RESTORE A AND Q 

01112 

046UOQ 75 



906 


ASE 

HFr»X 

IS IT A BACK3LZSH 

Oil 13 

42402034 

C 

00407 0 

90 7 


SACH 

OBUF4X2 


01114 

04600075 



908 


ASE 

H 7 r> X 

IS IT A BACKSLASH 

01115 

15200001 



90 9 


INI 

1, X 2 

ADD ONE TO 

01116 

47200012 

c 


910 


STI 

OBUFP » X2 

THE CHARACTER POSITION 

0 1117 

01001064 

p 


911 


UJP 

OCEXIT 








0) 
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Af v v -v v t v v v if r v v v v v v 

v v v v v Af v v Ar 

v v r ~r v v 4 v v v if w v nr v r v n* r v v v v v nr v v v -v r v v v v v v v nr nr v *»• v 

A' Af -f 



914 




Af 



915 

* ROUTINE 

TO CHANGE 

THE FILE NAME AND LOAD AN OVERLAY 

4f 



916 

V 



nf 




v v *f v v v v ’/• -r -v- v v v v v v v r 

V V V V V T V V V 

t nr v if v v v v v v v v nf *f v v v v v v v v if t A* t v *f v v V nr if if nf if if *f if if nr if v if if if -if 

01120 

■3 3 010 0 5 2 

919 

GVCALL TMQ 

11 

FILE NAME TO Q,A 


01121 

53020053 

920 

THA 

T 2 



01122 

17470000 

921 

ANA, S 

7QU00B 

REMOVE LAST TWO CHARACTERS 


01123 

13605435 

922 

XOA 

H A * T t 

ADD STAR (PUBLIC) 


01124 

13000014 

923 

SHAQ 

12 " 

SHIFT STAR TO TOP END 


01125 

53420052 

924 

TAM 

.'l/'T'l 



1) 1126 

53410053 

925 

TQM 

T 2 

NEW FILENAME TO Ti,T2 


01127 

01000537 P 

92 6 

UJP 

MCI 2 

TRY AND LOAD THE OVERLAY 





* * <f- -V- ^ if. ¥■ *■ -Sr -#• ¥ # » » * 

%4' W 

-V- v nr "V * 6 nr nr nr nr 

if *f nr nr -r if v v vv v if i‘ if if r t if if if if if if if if if v if if if if if if if T if if if if if if if if if 

Af Af Af 



92 9 




Af 



930 

* ROUTINE : 

TO PRINT 

CUT OCTAL NUMBERS — OCTOUT 

An 



■ 931 

If* 



Af 



932 

- 12- RESTORED 


Af 



933 ■ 

Af 



Af 



934 

ALL WITH*., 


N IS NUMBER OF DIGITS 

. Af 



935 

.* OCTOUT 

' N 

Af 



93 6 

Af 

Af Af Af nf nf Af Af Af Af Af Af Af Af Af Af Af 


AfAfA^AfAfAfAfAfAf'AfAfAfAfAfAfnfAfAfAfAfnfAfAfA^-AfAfAfA-Af'AnninAfnfAfAfAf Af Af Af Af A* Af Af Af 

Af 

Af Af Af 


0 113 0 

14600000 

13000003 

939 

. QCTPRINT ENA 

0 


01131 

940 

SHAQ 

3 


01132 

1430113 0 P 

941 

EH I 

QCTPRINT,X3 


01133 

02601031 P 

942 

IJD 

QUTCBAR,X2 


0 1134 

01100000 

943 

UJP 

0 » XI 

RETURN 


01135 

14600000 

94b 

OCTOUT EMA 

0 

01136 

13000003 

946 

SHAQ 

3 

01137 

14301135 P 

947 

EMI 

OCTOUT,X3 

01140 

02601031 P 

948 

IJD 

OUTCHAR,X2 



949 

Af Af if Af An Af Af Af Af y J| p *r Af 

if * * o u T LIN£ ** * * * * *** * 99 *. 


o 


CD 

CD 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


o 
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952 

v v v -r v v V v -«* 

T Y Y Y Y Y Y Y V 

Y V Y Y V Y Y Y Y V Y VY YY Y V Y Y V Y Y V V YYYV VYY Y Y VY Y V Y Y YY Y VY V V YY V Y Y Y V V 

Y V 

Q 




953 


ROUTINE 

TO OUTPUT ONE 

LINE -- OUTLINE 

* 





954 

v- 




% 





95 5 


XI- RETURN ADDRESS 


X 

Q 




956 

Y 

A - CHANGED 


V 




95 7 

V 

Q - CHANGED 


* 





95 6 

-Y- 

X2- CHANGED 


# 





959 

* 

X3- RESTORED 


Y 

O 




96 0 

-v- 

Tl- RESTORED 


Y 




961 

Y 

T2- RESTORED 


* 





962 

V 










•V- -V ■¥• -V V Y V Y 

■v" r y *v nr y -Y' nr nr 

Y 4 Y ^ Y ^ V' Y ^ V Y Y Ti* 

Y Y Y Y^ Y Y Y Y n 1 Y Y Y Y Y T ^ "V* Y Y Y Y Y Ar Y n 1 Y V Y Y Y ^ ^ 4 ^ n?- 

: O 

01141 

53230044 


965 

OUTLINE 

TMI 

ID , X2 



O 

01142 

17200003 


966 


ANI 

SYSHASKjX2 

GET TYPE OF OUTPUT DEVICE 


01143 

01201144 

P 

967 


UJP 

*+l,X2 



'•! ' 

0 1144 

01001147 

P 

966 


UJP 

OLTTY 

TTY 



01145 

01001203 

9 

96 9 


UJP 

OL TV 

TV 


■ o 

01146 

01001156 

P 

970 


UJP 

OLLP 

LP 



01147 

14600215 


972 

QLTTY 

ENA 

215 B 



O 

0115 0 

77760000 


973 


CTO 


RETURN 



01151 

14 6 U 0 0 12 


974 


ENA 

012 B 

LINE FEED 



0115 2 

77760000 


975 


CTO 




0 

01153 

14600000 


9 76 


ENA.. 

0 0 08 X 

NULL, TO ALLOW THINGS TO SETTLE 


0115 4 

77760000 


977 


CTO 


LINE FEED 



01155 

01100000 


978 


UJP 

0»X1 ■ 

RETURN 


O 

01156 

5 3 0 2 0 0 44 


98 0 

OLLP 

IMA 

9>TQ^ ::y - 




0115 7 

17600100 


961 


ANA 

OBUFBIT 

CHECK FOR THE OUTPUT BUFFER 


O 

01160 

03001375 

P 

982 


A2J*EQ 

UJPXi 

JUMP If HOT PRESENT 


01161 

14700000 


98 3 


ENQ : 

. STATUS: .. 




01162 

72077777 

X 

98 3+1 

JQi 

CM'TL 

LPUNITfCNTL 

CHECK THE STATUS Of 



0116 3 

05600003 


985 


ASG 

LP*i 

THE INPUT UNIT 


o 

01164 

05600001 


986 


ASG 

FILE ■ 

SKIP IF FILE OR LP 



01165 

01001176 

p 

98 7 


UJP 

OLLP 02: 

SKIP THE OUTPUT 

, 


U116 6 

37002671 

p 

98 8 , 


L.PS 

I08ITS 

CHECK FOR ILLEGAL WRITE 



01167 

03101176 

p 

98 9 


AZJ.»NE v.v 

OLLP02 . 



o 

0117 0 

20000012 

G 

99 0 


LDA 

0 BUFF 

GET LENGTH IN CHARACTERS 



01171 

15600003 


99.1 


I HA 

3 

ROUND UP 



01172 

1307774 5 


992 


SHAQ 

-2-24 

CONVERT TQ WORDS 



0117 3 

1460 Q 4 0 7 

U 

993 


ENA 

0 B U F 

ENTER. ADDRESS OF BUFFER 


o 

01174 

04700000 


994 


USE 

0 

SKIP IF NO OUTPUT 


My 

01175 

76001162 

X 

995 


WRITE 

LPUNIT 




01176 

53020044 


996 

OLLP02 

TMA 

10 




011 7 7 

17477277 


997 


A N A ■, S 

-GBUFBIT-FLA 

SH8I.T CLEAR THE BUFFER BIT 


o 

012 0 0 

16600400 


998 


XOA 

FLASHBIT 

AND SET THE SCREEN FULL BIT 



01201 

53420044 


999 


■ TAM 

IQ 




1 01202 

oiiooooa 


100 0 


UJP 

0 *X1 

RETURN 




O' 


012 0 3 

53020044 

10 02 

OL TV 

TMA 

10 


012 04 

17600100 

1003 


ANA 

OBUFBIT 

CHECK FOR THE OUTPUT BUFFER 

01205 

03001375 p 

100 4 


AZJ,EQ 

UJPXI 

JUMP IF NOT PRESENT 

012 06 

20000012 C 

1005 


LDA 

03UFP 

GET THE LENGTH 

012 07 

13077747 

1006 


SHAQ 

-24 


U1210 

51002651 P 

10 0 7 


OVA 

05 0 

COMPUTE THE NUMBER OF LINES 

01211 

15600001 

1008 


INA 

1 

ADD ONE LINE 

01212 

50002651 P 

1009 


HU A 

05 0 


01213 

40000012 C 

1010 


STA 

08UFP 

SAVE NEW POINTER 

01214 

05601666 

1011 


ASG 

TVBUFL-4-50 

SKIP IF FULL SCREEN 

01215 

01100000 

1012 


UJP 

0 ,Xi 

RETURN 

01216 

25002674 P 

1013 


LDAQ 

BCDMORE 

— MORE- 

01217 

45 0 0 0 7 6 5 C 

1014 


STAG 

OBUF +TVBUFL-12 

STORE INTO LAST LINE 

0122 0 

14700372 

1015 

OLTV 02 

ENG 

TV8UFL 

STORE THE AMOUNT TO WRITE 

01221 

41000012 C 

1016 

0LTVQ3 

STQ 

OBUFP 

IN OBUFP FOR USE LATER ON. 

01222 

53320044 

1017 


TMA 

10 

CHECK TO SEE IF THERE IS 

01223 

17600400 

.1018 


ANA 

FLASHBIT 

INFO ON THE TV SCREEN 

01224 

03001230 P 

1019 


A ZJ s EQ 

□ LTV 04 

JUMF IF SCREEN EMPTY 


o 

o 

o 

o 

o 

o 






o 


CD 


ALLOW THE USER TO READ HIS st ' 

TV SCREEN. 

GET LENGTH OF THE TV SCREEN (J) 

FIX THE STATUS UP 

O 

O 

o 
o 
o 
o 
o 
O 
: O 
' ■ O 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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1029 


T V V v V V V V V V V V V V V V V 

T 4 

r *r v v v v v v Ar v v v 4 v v v v -v 

v v v v 'r v v v v 'r 4- v v v v v 4* v v *r v v 4' v v v v v 

V 4 V 4 

v •¥• 

4 V 
4 




103 0 

- 7 I 

ROUTINE 

TO 

OUTPUT THE TV SCREEN — 0UTBUF 



4 




10 31 








4 




1032 

v- 

XI- RETURN 

ADCRESS X2- 

RESTORED 



4* 




103 3 

.4r 

A - CHANGED Tl- 

RESTORED 



4 




10 34 

•v- 

Q - CHANGED T2- 

RESTORED 



4 




10 3 5 

r 

X3- CHANGED T3- 

RESTORED 



4 




1036 








4 





r 

'/* v r 4 s * 4* -<r 4* 4* 4 4* 4* 4- 4 4 •*? 4 4 

4 4 

v v v v ■v v v v v ^ v v 'r 4' v v ^ r 

vvvvTrirv'rvvvT^^v , rvvv‘if'rv‘ir'VV , if*^rT 

V v } A 

4 v 

44 




103 8 









111234 

5 3 3 3 0 Q 4 4 


1039 


0UT3UF TNI 


10 » X 3 





01235 

17300103 


1040 


ANI 


SYSMASK+Q8UF8IT,X3 

GET TYPE OF 10 DEVICE 




01236 

0430 0101 


1041 


ISE 


T VS YS + OBUFBIT t X3 

SKIP IF THE TV SYSTEM 




01237 

01100000 


1042 


UJP 


0,X1 

RETURN 




0124 0 

20000012 

C 

1043 


LDA 


OBUFP 

UJPXi 

GET NUMBER OF CHARACTERS 




01241 

03001375 

F 

1044 


AZJ,EQ 


EXIT IF NO INPUT 




01242 

01001220 

P 

1045 


UJP 


OLTV02 

WRITE THE TV SCREEN 








-v* 

■4* 4 4 4 4 4 4 4 4 4 4 44.4 4 4 4 

4 4 

4 s * 4 4 4 4 4- -if- 4*- 4 4- 4 4" 4* 4 ■r 4- 4- 4 

44444444 4* 444444 4- 4 4" 4* 4' 4 444444 -4* 

■v 4 4 4 

v 4 

4 V 




10 48 

* 







4 




1049 


ROUTINE 

TO 

LIST TASK CONTROL 

STATEMENTS ON THE LINE PRINTER 


4 




1050 

4r 







4 




1051 


X3- RETURN 

ADDRESS Q - 

RESTORED 



4 




1052 

* 

A - CHANGED "XI- 

RESTORED 



4 




1053 

4 



X2~ 

RESTORED 



4 




105 4 

4* 



ri- 

RESTORED 



4 




1055 

4- 



T2- 

’RESTORED 







1056 

4 







* 





* 

J-jL ^ <^> *^> 

4 4 

•r v r v -r t v -v v -r v ^ -r "V 1 

v ^ v 4* 4* 4 4 v- 4* 4 4* *v- -v- 4* 4 4 4* 4 4 4 4 4- t vttv 

4 s - 4- 4 4 

44 

4 4 




1058 









01243 

53020044 


1059 


FILEECHO TMA 


10 





0 1244 

17600043 


1060 


AHA 


IBUF8IT+SYSMASK 





0 1245 

04600042 


1061 


ASE 


IBUFBIT+TASKSYS 

SKIP IF LP AND INPUT 




01246 

01300000 


1062 


UJP 


a, x 5 

RETURN 




01247 

41000001 

C 

10 63 


. SIS 


QSAVE 

SAVE Q 




01250 

14700000 


1064 


ENG 


STATUS 





01251 

72001175 

X 

1064+00 

i 

CNTL 


LP'UN IT j CNTL 

GET THE STATUS OF THE 




01252 

05600003 


i 066 


ASG 


LF + i 

OUTPUT UNIT 




01253 

05600001 


10 67 


ASG 


FILE 

SKIP IF FILE OR LP 




0 1254 

01001262 

p 

1068 


UJP 


FE0 2 

SKIP THE WRITE 




01255 

37002671 

p 

10 6 9 


LPA 


IOBITS 

CHECK FOR ILLEGAL WRITE 




0 1256 

0J1U1262 

p 

107 0 


A2 J ■» ME 


FE02 





01257 

21000007 

c 

10-71 


LOG 


IBU’FHC 

GET THE RECORD LENGTH 




0 1260 

146 0 00.14 

c 

1072 


ENA’ 


IBUF 





01261 

76001251 

X 

10? 3 


WRITE 


LPUNIT 

WRITE CUT THE LINE 




01262 

21000001 

b 

10 74 


FE02 LOG 


QSAVE 

RESTORE Q 




01263 

01300000 


1U75 


UJP 


Q,X3 

RETURN 





CD 

CD 

Q 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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gntlho.de 


01264 
01265 
01266 
01267 
012 70 
U 1271 


01272 
0127 3 


01274 
01275 
0 12 76 
01277 
0130.0 
013 01 
01302 
013 0 3 
0 13 0 4 
0 13 0 5 
01306 
0 13 0 7 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
0 1323 
01324 
0 13 2 5 
01326 
01327 
0133 0 
01331 
01332 
01333 
01334 


01335 

01336 

01337 

01340 

01341 
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v v v v v v -i* -r v v v v v v v v nr v v v A- v r v - 4 * v v wvt - 4 * ^ - 4 * v r *4* v v v *r v v v nr nr v v -v v '<* A* v n- y 




10 7 8 

nr 




* 




107 9 

V 

ROUTINE 

TO OUTPUT A MESSAGE - 

- MESSAGE 

V 




108 0 

* 


ENTER AT ERRORMES TO PRINT AN ERROR AND ABORT 

. . v. 




1081 

V 




nr 




1082 

V 

XI- CHARACTER ADDRESS OF MESSAGE 

# 




1083 

V 

X2- RETURN ADDRESS 


* 




108 4 

* 

A - CHANGED 






1085 

nr 

X3- ChANGED 






10 8 6 

•v- 

Tl- CHANGED 


* 




10 87 

V 

Q - RESTORED 


-* 




108 8 

'r 

T2~ RESTORED 


Y 




10 89 

3f, ■ ■■ ' : 




Y 





'/■ "Y -V- V V T- V- 

v nr v v t -A v v v 

Y Y V Y V Y -*«• -V Y *4* -4* Y Y ^ A* V - 4 * ~4~ Y Y Y 

Y V Y Y Y Y T A- Y Y Y A* Y Y Y Y A Y ^yA-?* A Y Y Y A Y A Y 





1091 






53500000 



1092 

£ R R O R1N A 

TAI 

xi 



14201272 

P 


1093 

ERRURMES 

ENI 

ERMSX,X2 

RETURN ADDRESS 


2240OQ00 

P 

00000 0 

1094 

MESSAGE 

LACH 

Z , X i 

GET NEXT CHARACTER 


03001544 

P 


1095 


AZJ,£Q 

UJPX2 

EXIT IF END OF MESSAGE (0) 


14301266 

P 


1 096 

ME3SAGE2 

ENI' 

MESSAGE,X3 

RETURN ADDRESS 


0 2.1010 31 

P 


109 7 


IJI 

OUTCHAR,XI 

OUTPUT CHARACTER 






nr nr nr nr nr nr t nir 

nr nf *¥> 3r nr 3r nr 

n£ 4 s * nr nr v nr nr nr nr nr nr A* nr nr nr nr nr nr. nr 

nr •A- A 1- nr nr nr nr * 4 — nr nr nr nr nr nr nr nr 'A A* nr A* A t y y t -nr nr nr nr nr A 1 * A 4 - nr 

nr nr 




110 0 









1101 

■ nr 

ROUTINE 

TO OUTPUT ERROR MESSAGE AND DISPLAY UNPROCESSED 

nr 




1102 

5f-. ; 

INPUT ON 

THE TV SCREEN. THIS 

ROUTINE EXITS TO ABORT. 

£■ 




110 3 

-r- 




■ * 





■V 1 nr nr nr nr nr nr nr. v 

r.vr v nr nr nr nr nF nr nr nr. nr A* nr A- A nr nr A- nr A- A- A*. A v A A A nr 

AAA A A- nr-nr nr nr A* nr nr -nr A nr nr A* A A A A A A A A A AAA nr -A- nr A 

14101274 

P 


1106 

ERMSX 

ENI 

EROUTBUF,XI 

EXIT ADDRESS 


01001141 

P 


110 7 


UJP....... 

OUTLINE 

ADVANCE TO NEXT LINE 


53020044 



TIG 9 

EROUTBUF 

THA 

10 



.176 010 0 3 



11.1 a 


ANA 

STATBIT+SYSMAS.K 

CHECK TO PRINT OUT THE STATUS 


14701001 



1111 


ENQ 

STAT8IT+TVSYS 



03604173 

P 


1112 


AQJ,GE 

REGOUT 

TV OR TASK AND STATUS REQUEST 


14100414 

P 


1113 


ENI 

ABORT,XT 



53230044 



.1114 


THI : 

10, X2 

CHECK FOR TV AND BOTH BUFFERS 


17200143 



11. IS 


ANI 

I8UF BIT +0BUF8IT+SYSMASK,X2 


04200141 



1116 


ISE 

TVSYS+I8UFBIT+08UF8IT,X2 


01001234 

o 


1117 


UJP 

' QUTBUF//' 

JUMP IF NOT TV OR NO INPUT BUFFER 

53020044 



1116 


THA 

10 



1747 7.6 37 



1119 


ANA t S 

-I80FBIT-0BUFBIT 



534 2 0 0 4 4 



112 0 


TAH 

10 

FROM CLEARING THE SCREEN 


54100010 

G / 


1121 


LDI. 

ILINEP , XI. 

STAkT OF LAST INPUT LINE 


15100001 



1122 


INI 

A,XI 

PROTECT AGAINST ZERO 


54200012 

C 


1123 


LDI 

08UFP , X2 

START OF NEXT OUTPUT 


21000012 

C 


1124 


LDQ 

OBUFP 

NUMBER OF OUTPUT CHARACTERS 


22400057 

■'•O' • 

00013 3 

1125 

ER8.02 

L A G H 

IBUF-T , XT 

GET THE NEXT INPUT CHARACTER 


04600036 



1 .1. 2 6 


ASE 

36B 

SKIP IF RETURN 


0 210132 0 

p 


112 7 


IJI 

*+2,Xi 



02101314 

p 


1128 


IJI 

ERB 02,XI 

SKIP IF NULL LINES 


4240 20 34 

c 

00407 0 

1129 

ER3Q 3 

SACK 

OBlif , X2 



04600037 



i 1 3 a 


ASE 

3 7B 

SKIP IF END OF SCREEN 


02201335 

p 


1131 


IJI 

ERB2.1, X2 



16577777 



1132 

ERB 0 4 

XOQ >S 

-0 

COMPUTE AMOUNT OF SCREEN LEFT 


15701750 



113 3 


INQ 

TVBUFL-4 

TOTAL AMT-AMT USED 


13000030 



113 4 


SHAQ 




53240000 



1135 


AiA 

X2 

ADD IN AMT USED 


13077745 



1136 


SHAQ 

-2-24 

LENGTH OF THE WRITE IN WORDS 


057UG372 



1137 


QSG 

TVBUFL 

SKIP IF TOO LARGE 


01001333 

p 


1138 


UJP 

- t-2 



14700372 



1139 


END 

TVBUFL 

ENTER MAXIMUM LENGTH 


14100414 

p 


114 0 


ENI 

ABORT,XI 

RETURN AQDRESS 


0101)1221 

p 


1141 


UJP 

OLTV03 

WRITE OUT THE SCREEN 


04600036 



1143 

ER821 

ASE 

36B 

SKIP IF END OF LIME 


01001352 

p 


114 4 


UJP 

ER824 



05701666 



1145 


QSG 

TV8UFL*4-50 



01001344 

p 


1146 


UJP 

ERB 2 2 



14600037 



114 7 


ENA 

37B 
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01342 

42402033 

C 

0 U 4 0 6 3 

114 6 


S ACH 

081JF~1,*2 

ERB04 j X2 



Old 4 3 

02601323 

P 


1149 


1 JO 



01344 

14600000 



1151 

ER'322 

ENA 

Q 

COMPUTE 

THE NUMBER OF LINES 

0 1345 

51002651 

P 


1152 


OVA 

050 



01346 

15600001 



115 3 


IMA 

1 

ADVANCE 

TO NEXT LINE 

0 13 4 7 

50002651 

P 


1154 


HU A 

050 

COMPUTE 

NUMBER OF CHARACTERS 

0 13 6 0 

13000030 



1155 


3HAQ 

24 



01351 

01001314 

P 


115 6 


UJP 

ER8 02 



0 1352 

22400067 

c 

00013 3 

1156 

ER324 

EACH 

I8UF-1 i XI 



0135 3 

15700001 



1159 


INQ 

1 

ONE MORE 

CHARACTER 

01354 

05701750 



1160 


QSG 

TV8UFL*4 

CHECK FOR TOO MANY CHARACTERS 

01355 

02101320 

p 


life! 


IJI 

ER8 03, XI 



|J 135 6 

01001323 

p 


1162 


UJP 

ERB04 

END OF SCREEN, EXIT 



O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

C) 







0 
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v y v v v -r v —r 

v v v r V V V Y Y 


V Y Y Y Y Y Y V Y 'T Y Y Y Y V Y Y V Y Y Y Y V '/■ Y ^ V V ^ Y Y 

vnf v v Y 




1165 

*•' 








1166 

Y 

ROUTINE 

TO PRINT OUT DECIMAL 

NUMBERS — OECOUT 

V 




1167 

V 




V 




1163 

V 

XI- RETURN ADDRESS 


* 




1169 

.. V 

A - DECIMAL NUMBER 






1170 

V 

Q - CHANGED 


* 




1171 


X 2- CHANGED 


Y 




1172 

V 

X3- CHANGED (OUTCHAR) 


* 




1173 

V 

Tl- CHANGED (OUTCHAR) 


* 




1174 

V* 

T2- RESTORED 


Y 




1175 

y 




* 





y v ■vt y y y - 4 ” v 

Y v* y ^TYTY y V 

^ Y Y Y Y Y Y V Y Y Y V Y Y Y Y Y Y 

Y Y Y Y ^ Y Y Y ^ Y Y Y Y ‘A Y Y Y VTfYYYY^^fYYYY 





1177 






01357 

53630054 


1178 

DEGOUT 

TIM 

T3, X2 

SAVE X2 


01360 

03201362 

P 

117 9 

OTOi 

A Z J , G E , 

* + 2 

JUMP IF POSITIVE 


01361 

14600000 


1180 


ENA 

0 

IF NEGATIVE, SET TO ZERO 


01362 

13077747 


1181 


SHAQ 

-24 



01363 

14 2 0 0 0 0 6 


1182 


ENI 

6 * X 2 

MAXIMUM NUMBER Of CHARACTERS 

IS 7 

01364 

51202642 

P 

1188 

DT02 

DVA 

DTABLE,X2 



0 13 6 5 

03101371 

P 

1184 


AZJiN£ 

DTQ6 

JUMP IF FIRST DIGIT 


01366 

02601364 

P 

1185 


x J u 

DT02,X2 

LOOP BACK IF LEADING ZEROS 


0136 7 

14600000 


118 6 

. OT 04 

ENA 

a ■■ 

REMOVE GARBAGE 


Q 1370 

51202642 

P 

1 IS 7 


DVA 

DTABLE»X2 

GET HEX! DIGIT 


01371 

143013 73 

P 

118 8 

OT 06 

ENI 

+ 2 » X3 

RETURN ADDRESS 


01372 

01001031 

P 

118 9 


UJP 

OUTCHAR 

OUTPUT DIGIT 


0137 3 

02601367 

P 

1190 


XJO ' 

DT04,X2 

LOOP BACK IF MORE 


01374 

53230054 


• 1191 


TMI 

T3, X.2 

RESTORE X2 


013 75 

0110 0 0 0 0 


1192 

UJP XI 

UJP 

0 rXl 

RETURN 




^ ^ 

y 'lil y y *5y y Tf" “l? 1 *1r *¥• 44 'SI Y 4r 4r- y -5r -i? Y y y y 4“ 4* y y y -If* *v- y y -nr -3r y y y 4*' y y -7 y y y 4,1 ^ .1,1 if. 

Y Y Y Y Y Y "V- Y Y ”$?* Y ’ Y Y T?" 

1195 

Y 


Y 

1196 


ROUTINE TO : PRINT OUT BCD SYMBOLS — SYH.OUT 

* 

119.7 



' * 

1198 

& ... 

XI- RETURN! ADDRESS. 

* 

1199 

■ ■y •• 

: .T1- UPPER : PAf?T' OF BCD" SYMBO.L 

. % 

12 0 0 

' ^ 

' .T2- LOWER’, PART. OF BCD SYMBOL , 

. 3? 

1201 


A - CHANGED 

* 

12 02 

!§, ■ 

Q - CHANGED 

V 

120 3 

¥■ . 

X£- RESTORED 

* 

1204 


X3- CHANGED (OUTCHAR) 


120 5 

■ “#■' 1 

T4 ■ - USED AS T £ M P ( CHANGED > 





1206 



: ^ 




■j|» ^ y y Y *sf* *IF*. y ,y 9- 4£- 4 y 

Y Y Y 4 ?1 ^ Y Y Y ^ 4r 

Y Y Y “Y" Y YY 4“' ^ Y Y Y ‘Y Y ‘YY Y' Y Y 4? Y Y Y Y Y Y Y *7 Y Y' Y Y Y Y Y 4* T Y Y Y 

01376 

53010U52 

120 9 

' SYHOUT TflQ 

Tl 

UPPER PART ID Q 

01377 

53020053 

1210' 

THA 

12 

LOWER FART TQ A 

014 0 0 

13 0 0 0 Q0 6 

1211, 

SYM0UT02 SHAQ 

6 

GET NEXT CHARACTER 

014 01 

58420055 

1212 

TAN 

14 

SAVE LOWER PART 

01402 

17600077 

1213 

ANA 

? ? B 

GET ONLY ONE CHARACTER 

01403 

14301375 P 

1214 

ENI 

UJPXi, X3. 

RETURN IF SPACE 

01404 

04600060 

1215 

ASE 

608 

SKIP IF SPACE 

01405 

14301407 P 

.1216 

, .. .ENI . 

* + 2,'X3 

NORMAL RETURN 

01406 

Ul GO 1031 P 

1217 

UJP 

OUTCHAR 

OUTPUT ONE CHARACTER 

014 07 

53020055 

1218 

TMA 

14 

GET LOWER PART 

01410 

17477700 

1219 ■ 

ANA ,S 

77700B 

REMOVE LAST CHARACTER 

01411 

16400060 

122 Q 

X O A , S 

00060B 

REPLACE IT WITH A SPACE 

01412 

01001400 P 

1221 

UJP 

SYMOUT02 

GET NEXT CHARACTER 


a 

Q 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




CD 


CD 


! 
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fl 





-v- v r v v v v v v 

v v -v -r v v v v 

V -T -V* V V -V V V V V ^ V V V V V V V V -v V 

-v v v -«■ v -f v v v v -r v v v v Fr t Fr v v v v ^ v v v -V *?■ v ^ v v 

* 





1224 





Fr 





1 Z Z 5. 

V 

ROUTINE 

TO GET THE NEXT ITEM 

— PACKER 

¥ 





1226 





¥ 

o 




122 7 

V 

PACKER 

MILL RETURN TO XI ON 

END-GF-LINE» Xl+1 ON 

’V* 




i 2 2 8 

■v* 

A DECIMAL NUMBER, OR Xl+2 ON 

A aCO SYMBOL. 






1229 


THE DEC IMAL NUMBER HILL 8E IN A * 

* 





123 0 

V* 

THE SYMBOL HILL BE IN AQ AND 

IN Ti, T2. 

* 

o 




1231 





Fr 




123 2 

Fr 

A - CHANGED 


Fr 





1.23 3 

■v- 

Q - CHANGED 


Fr 

o; 




1234 

V 

XI- RETURN ADDRESS 


* 




1235 

Fr 

X2- TERMINATING CHARACTER 


* 




1236 


X3— RESTORED 


Fr 





1237 

Fr 

11- CHANGED 


F? 





1238 

Fr 

T2- CHANGED (ONLY IF A BCD SYMBOL IS FOUND) 

Fr 

o 




X 2 -3 9 

V 




Fr 





W ** fcfi? %#«#«# 

^ -ir “v* ^ -v* v v v ^ 

Fr Fr Fr Fr Fr Fr Fr Fr Fr Fr Fr Fr Fr F£ Fr Fr F£ Fr nr Fr* Fr Fr Fr F?- Fr Fr 

t Fr ,T r Fr v Fr Fr Fr r t Fr Fr Fr Fr Fr F£ Fr Fr Ft* v t y Fr v Fr ’?• v t ir Fr F? Fr Fr Fr F£ 

o 

01413 

5320000U 


1242 

PACKER 

11A 

X2 ■ 

GET THE DELIMETER 



01414 

14700000 


IE 43 


ENG 

0 



o 

014.15 

53600000 


'1244 

PACK2G 

TAI 

X2 



01416 

05600012 


124 5 


ASG 

10 

SKIP If NOT A DIGIT 


01417 

01001501 

P 

1.24b 


UJP 

PACK40 

PROCESS DECIMAL NUMBER 



0142 0 

20002700 

P 

1247 


LDA 

ALPHA! 

■ GET ALPHA BITS FOR 30-578 


o 

01421 

052Q0Q&0 


124 3 


ISG 

& OB,X2 



01422 

05200030 


1249 


ISG 

308 ,X2 



0142 3 

20002701 

P 

125 0 


LUA 

ALPHAS 

GET ALPHA BITS FOR GO-273, 60-773 


01424 

12200000 


1251 


■ SH.A 

0, X2 




01425 

GJoi!i4J<3 

P 

125 2 


AZJtLT 

■ PACK-22 ' 

JUMP IF ALPHA 


o 

01426 

53200000 


125 3 


TIA 

X2 

GET LAST CHARACTER 


01427 

14201415 

P 

1254 


ENI 

PACK20,X2 

GETCHAR RETURN ADDRESS 



0143 0 

04600037 


1255 


A.SE 

. 378.. . 

SKIP IF END OF LINE 



01431 

01001517 

P 

1256 


UJP 

GET CHAR 

- GET ANOTHER CHARACTER 


o 

.01432 

0110 0000 


1257 


IMP 

: O t Xi ■ 

RETURN 


o 

01433 

25001514 

P 

1259 

PACK22 

LDAQ 

PACK90 

GET INITIAL BLANKS 


01434 

53240000 


126 0 


AIA 

X2 

ADD IN THE FIRST CHARACTER 



01435 

53420053 


. .12.61 

PACK24 

TAN 

T2 




01436 

14201440 

P 

126,2 

PACK26 

,EN:I r 

. ■.■■■ *+-2.-VX2..., 

GETCHAR' 

GETCHAR RETURN ADDRESS 


o 

01437 

010 0 15 ~i 7 

P 

126 3 


UJP 

GET NEXT CHARACTER 


01440 

53600003 


1.2.6 4 


T AT 

■ ■. 4 .trt ■ JL 

' X2. : 




01441 • 

056 0 0 Q12 


1265 


ASG 

10 

. SKIP IF NOT A DIGIT 



01442 

01001451 

P 

- 1266 


UJP 

PACK-28 

CHECK FOR AN ALPHA CHARACTER 


o 

01443 

20002700 

P 

126 7 


LDA 

ALPHA! 



0144 4 

05200060 


' 1268 


ISG 

S 0 8 ? X 2- 




01445 

0520 0 0 311 


126 9 


■ISG 

30B,X2 




01446 

20002701 

P 

.127 0. ■ 


LDA 

ALPHAS 



o 

01447 

12200Q00 


1271 


SBA. 

0 » X 2 



01450 

03201464 

P 

JL €» t ' C\ 


AZ J , GE 

PACK32 

JUMP IF A DELIMETER 



01451 

14600000 


12:73 

PACK28 

ENA 

0 




01452 

130 0 00 06. 


1274 


SHAQ 

6 



o 

0145 3 

04600060 


127 5 


■ ASH. 

6 OB 

CKECK FOR MORE THAN 8 CHARACTERS 


01454 

01001462 

P 

1276 


UJP 

PACK3G 

JUMP IF TOO MANY 



01455 

5320U00Q 


127? 


TI ft 

X.2 ■ 

ADD THIS CHARACTER TO THE SYMBOL 



01456 

13077771 


1273 


SHAQ 

-6 



o 

0145 7 

53020053 


1279 


IMA 

T2 

GET ALL 48 BITS 


0 146 0 

13000006 


123 0 


SHAQ 

6 

SHIFT LEFT ONE CHARACTER 



U 1461 

01001435 

P 

1281 


UJP 

PACK24 

GO LOOK FOR MORE CHARACTERS 


o 

0146 2 

13077771 


1283 

PACK30 

SHAQ 

— 6 

SHIFT Q BACK INTO PLACE 



01463 

01001436 

P 

12 34 


UJP 

PACK26 

SEARCH FOR A DELIMETER 


o 

014b 4 

14600000 


1286 

PACK32 

ENA 

0 




0146 5 

13000006 


128 7 


SHAQ 

6 

EXAMINE LEFT MOST CHARACTERS 



01466 

04600060 


128 8 


ASE 

60 8 

SKIP IF NOT LEFT JUSTIFIED 


o 

0 146 7 

010 014 7 5 

P 

1289 


UJP 

PACK34 



.01470 

13077771 


129 0 


SHAQ 

— 6 

RESTORE Q 



014 71 

5 3 0 2 0 05 3 


1291 


TMA 

12 




0147 2 

1300000b 


129 2 


SHAQ 

6 

SHIFT LEFT ONE CHARACTER 


o 

01473 

53420053 


1 2 9 3 


TAM 

T 2 



014 7 4 

01001464 

P 

129 4 


UJP 

PACK32 




Q 

O 

O 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 








a 
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CD 

014/5 
014 7b 

13 0 0 0 0 22 
[53010053 

124 7 

PACK34 

fna° 

?r 6 


0147 7 

53420052 

129 0 


TAM 

r i 


015 00 

011U 0 0 0 2 

1299 


UJP 

2 ,X1 

CD 

015 01 

13000030 

1301 

PACK 4 0 

SHAG 

24 


0 15 0 2 

5 U 0 0 2 6 4 3 P 

1302 


MU A 

DID 

o 

015 0 3 

53240000 

130 3 


AIA 

X2 


015 04 

13000030 

12 0 4 


SHAQ 

24 


015 0 5 

14201507 P 

13 0 5 


ENI 

* + 2 ,X2 


01506 

01001517 P 

.13 0 6 


UJP 

GETCHAR 

o 

015 0 7 

53600000 

13 07 


TAI 

X 2 

i 01510 

05600012 

13 0 0 


A SG 

io: 


01511 

01001501 P 

1309 


UJP 

PACK4Q 


01512 

13000030 

1310 


SHAQ 

24 

o 

01513 

0110 0 0 0.1 

1311 


UJP 

1, XI 

o 

01514 

60606000 

1313 

PACK90 

BCD 

3, 0 

. 


01515 P 

1314 

BLANKS 

EQU 

PACKS 0 + 1 


o 

o 

o 

o 

o 

o 


o 

o 

o I 
o 

Q 

o 


o 


mmEmhmoW* A 

PUT UPPER HALF INTO II 
RETURN 8C0 SYMBOL 


PUT PREVIOUS AMOUNT INTO A 

C(A)*1Q+C(X2) 

PUT NUMBER BACK INTO Q 
RETURN ADDRESS 
GET ANOTHER CHARACTER 
SAVE THE CHARACTER 
SKIP IF DONE 
FOUND ANOTHER DIGIT 
PUT NUMBER INTO A 
RETURN DECIMAL NUMBER 
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)S6 V 1*0 
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r v v -v -v v v '/■ 

v v v v r v v v nr 

v v v v v v r v v n- v v nr v v nr V v v v 

v v v v v v v v v v v v -r v v v nr v v v v v v v 

v v v v v v v v -v nr nr v 




1317 

* 




* 




1313 


GETCHAR 

- GETS A BCD CHARACTER FROM THE INPUT UNIT» 

■V 




1319 

'•* 




n? 




1320 

V 

A - THE 

CHARACTER 


nr 




1.3 Z 1 

-V- 

Q - RESTORED 


•nr 




1322 

V 

XI- RESTORED 






1323 

* 

X2- RETURN ADDRESS 


* 




1324 


X3- RESTORED 


A* 




1325 


Tl- CHANGED 






1326 

* 

T2- RESTORED 






1327 

■ nr 




nr 





•r x nr v- nr nr nr 

nr nr nr nr nr nr. nr nf- 

“* -v -ir 4f- t -r t -r T -r nr nr nr nr nr -nr nr nr 

nf ^ *? * *c n? # ■* * * ^*2* ^ n* * n* * # * 

************ 




132 9 






01517 

53410052 


1330 

GETCHAR 

TQM 

Tl 

SAVE Q 


01520 

5 3.02 0 0 44 


1331 


IMA 

IO 

GET I/O TYPE 


01521 

17600323 


1332 


ANA 

AUXBIT+SYSMASK 



01522 

05600001 


133 3 


ASG 

TVSYS 

DECODE I/O TYPE 


01523 

01001527 

p 

1334 


UJP 

. GETTTY 

JUMP IF TTY 


01524 

05600002 


1335 


ASG 

TASKSYS 



01525 

01001557 

P 

i 3 3 6 


UJP 

GET TV 

JUMP IF TV 


01526 

01001763 

P 

133 7 


UJP 

GETFILE 

JUMP IF TASK OR AUX, UNIT 

015 2 7 

835SQ05E 


1339 

GET TTY 

TIM 

T1 * X1 

SAVE XI 


015 3 0 

77750000 


1340 

GET02 

CTI 




0 1531 

17600177 


1341. 


ANA 

1778 

REMOVE PARITY BIT 


015 3 2 

05600173 


1342 


A S G 

.1738 



01533 

05600141 


1343 


ASG 

1418 

SKIP IF LOWER CASE 


015 34 

01QG1536 

P 

1344 ' 


UJP 

•* + 2 



015 3 5 

16600040 


1345 


XOA 

0 4 0 8 

CONVERT TO UPPER CASE 


0 15 3 6 

05600140 


1346 


ASG 

140 8 

, 


015 3 7 

056 0004 0 


1347 


ASG 

04 SB 



015 4 0 

01001545 

p 

1.34-8 


UJP 

GET06 

SPECIAL CODE 


01541 

53500000 


1349 


TAI 

XI ' 




01542 

P 

1349+001 

GET 03 

EQU 

nr 



01542 

22413350 

P 02672 0 

135.0 


LA'CH 

ASCT18GD-S498 * XI 

CONVERT TO BCD 


01543 

53130052 


4 "Z tz 4 , 

• H&5. -VtT . JL? • 

GET 04 

. XHI 

Tl » X 1 

RESTORE XI 


01544 

.01200000 


i -is 

«fk» «■-* C*i> 

UJPX2 

■ UJP 

0 ,X2 

RETURN 


01545 

15477765 


1354 

GE.T06 

INA i$ 

-128 



01546 

046 0 0 0 O' 3 


135 5 


A St 

158-128 



0 1547 

03101552 

P'' . - 

1355+001 


A 7 J . ME 

GET 07 



0 15 5 Q 

14600037 


1357 


ENA ’ 

; ■ 378 : 

INDICATE END OF LINE 


01551 

•31001543 

p 

1355,; 


UJP 

GET 04 

EXIT 


j 

01552 

P 

135 8+ 002 

GETS? 

EQU 

•r- 



0 1552 

15400112 


1358*00 S 


IWA*-S 

128+1008 

MAKE A CONTROL CHAR A 

PRINTING CH 

01553 

5350001)0 


1358+304 


TAI 

XI,. 

3AVE IM GAS t WE ACCEPT 

IT 

0 1654 

53020026 


1358+0-05 


TMA- 

RFH6, 

GET LOGIN/LOGOFF FLAG 


01555 

03201530 

P ■ 

1358+006 


AZJvGE 

GETQ2. 

IGNORE CHAR IF LOGGED 

IN 

01566 

01001542 

P 

1358+007 


UJP 

GET 0.3. 

ACCEPT CHAR IF NOT 
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ISuFBIT 
GET 26 
10 

0BUF8IT 
GET 15 
10 

FLASHUI7 
GET13X 
0 

IQUF 

TVUNIT 

08UF 

TVBUFL 

TVUNIT 

Xi 

FREEPAGE,X1 
GMPAGE3,XR£Q 
X i 
10 

-fLASH8IT-IBUF8IT- 
10 

18 U F 
TVBUFL 
TVUNIT 
23-FM8IT 
GET 12 
10 • . 
IBUFBIT+08UFBIT 
10 

X15 AVE * XI 
BLANKS 
TVBUFL-2 » XI 
G8UF»XI 
Q s XI 
- 2 » X1 
TVCHAR 


CHECK FOR AN INPUT BUFFER 
JUMF IF ONE EXISTS 

CHECK FOR OUTPUT BEFOR DOING 
THE READ. 

CHECK FOR INFO ON THE TV SCREEN 
BEFORE DOING THE OUTPUT 

ALLOW THE USER TO EXAMINE 

HIS TV SCREEN 

OUTPUT CONTENTS OF OBUF 


SAVE XI IN A 

FREE THE SCRATCH PAGE 
RESTORE XI 
GET 10 FLAGS 
OBUFBIT 
RESTORE 


READ IN A SCREEN 
CHECK FOR FILEMARK 


SET INPUT BUFFER BIT+GBUF 


BLANK FILL THE BUFFER 


a 

OBUFP 

xauFP 

ILINEP 

ILINEPN 

373 

IBUF+TVBUFL*4 
- 0 , XI 

O' . 

IB'UFd XI 
37B 

GET 2 0,XI 

3 7.8 . ■ 

lauFtXi 

0- • ' 

GET28 


INITIALIZE POINTERS 

PUT A END Of SCREEN CHARACTER 

...AT THE END OF SCREEN 


XiSAVE,Xi 
I BUFF , Xls 
IBUF-i*Xi 
X1SAVE,XI 
3 7 B 
GET13 
ILINEPN 
ILINEP 
I8UFP» Xi 
I8UF,X1 
37B 
G E'T 3 0 
GET 34 

3 68 
GET 34 

ILINEPN,XI 

3 78 

1*X1 

IBU FP,X1 
X1SAVE,XI 
T1 

OrX2 


GET LAST CHARACTER 

RESTORE XI FOR JUMP TO GET13 

JUMP IF END OF SCREEN 


RETURN 37B 

SKIP IF END OF LINE 

START OF NEXT LINE ADDRESS 
ENTER END OF LINE 


RESTORE XI 
AND Q 
RETURN 
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01673 

0460003b 


1439 


GET2 0 ASE 

36B 

016 7 4 

01001703 

p 

1440 


UJP 

GET 24 

016 75 

20 0 0 00 Hi 

c 

1441 


GE122 LUA 

ILINEP 

016 76 

15600001 


144 2 


INA 

1 

01677 

4 0 0 0 0 U10 

u 

1443 


ST A 

ILINEP 

017 0 0 

05600024 


1444 


ASG 

2 0 

0 17 01 

01001635 

p 

144 5 


UJP 

GET 14 

01702 

02501641 

p 

1446 

1447 


IJQ 

GET 18,XI 


017 0 3 

p 

1448 


GET 24 EQU 


0 i 7 0 3 

15700001 


1449 


INQ 

1 

017 0 4 

04 70 UO 62 


1450 


QSt 

5 0 

017 05 

0100163b 

p 

.1451 


UJP 

GET16 

0170 6 

01001675 

p 

1452 


UJP 

GET22 
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o 
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o 
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o 


o 


SKIP IF END OF LINE 


0 
0 

ADD ONE TO NUMBER CF LINES 

O 

JUMP IF FULL SCREEN 

O 

ADD 1 TO CHARS ON LINE 

JUMP IF FULL LINE ^ 

o 

o 

o 

V' ■ ' :: O 
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14101711 
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U1 0 0 17 51 

H 

01711 

14112342 


01714 

14100424 

P 

01715 

01001141 

P 

01716 

1410172 0 

P 

0 1717 

01001751 

P 

017 2 0 

14112364 


017 2 3 

14103766 

P 

01724 

01001141 

P 

01725 

14101727 

P 

01726 

01001751 

P 

01727 

2200006U 

c 

01730 

14700052 


01731 

05400424 

p 

0 i 732 

14700000 


U 17 5 3 

72001261 

. X 

01734 

05600003 


01735 

0560 0001 


01736 

01003766 

p 

017 37 

37 0 02671 

p 

01740 

03103766 

p 

01741 

20001515 

p 

01742 

40000013 

c 

01743 

2100U007 

c 

01744 

1570 0001. 


01745 

14600013 

c 

01746 

76001733 

X 

01747 

14112317 


01751 

53020026 


01752 

03305230 

p 

01753 

55 0 2 00 7 7 


01754 

03300424 

p 

01755 

53010044 


01756 

27002667 

p 

0175 7 

03100424 

p 

01760 

165 0 02 0 0 


01751 

5 5 410 Li 4 4 


01762 

OltOOQOO 




145 4 

14? 5 

14 5 6 

£05 


145 7 

145 8 

145 9 
1460 

E 0 6 


1461 

1462 

EGoA 


1463 

1464 . 

1465 

1466 

1467 

E 07 

Q 0 014 a 

146 8 



1469 
x 4 7 U 
1471 

1471+001 

1473 

1474 

1475 

147 6 
147? 

1473 

1479 

148 0 
1481 
1.4 82 

1483 

1484 
I486 

1486 RECK 

143 7 

1488 

148 9 

149 0 

1491 

1492 

1493 

1494 ' 

1495 


ENT 

r + 2, XI 

UJP 

RECK 

OUT 

M5 7 

ENI 

M C , X1 

UJP 

OUTLINE 

ENI 

*+2,X1 

UJP 

RECK 

OUT 

M63 

ENI 

E 01,XI 

UJP 

OUTLINE 

ENI 

*+2iXl 

UJP 

RECK 

EACH 

IBUF 

ENQ 

HFv?: 

AQJ,EQ 

MC 

ENQ 

STATUS 

CNTL 

LPUNIT,CNTL 

A S G 

LP + 1 

A SG 

FILE 

UJP 

■EDI 

LP A 

i obits - 

AZJ,NE 

E 0 1 

L D A 

BLANKS' 

STA 

IBliFMl 

LDQ 

I8UFWC 

INQ 

1 

ENA 

IBUFM1 

WRITE 

ERM 

LPUNIT 

M.6-6 

IN A 

RF 2 6 

AZJ,LT 

THft 

AZJ,LT 

THQ 

LDL 

TASKLOG 

Q XT 7 7 

l\ (T. s . 7 

MC 

JQ 

8SI6N-8.IT 

AZJ.»NE 

MC . 

XOQ ,S 

BIGNBIT 

TQM ■ 

TO 

UJP 

a, xi 


CHECK FOR ABORT, ETC* 
EXTRA END OF FILE 

INFORM THE USER 


CHECK FOR ABORT, ETC. 

BINARY RECORD 

ILLEGAL CONTROL STATEMENT 


CHECK FOR ABORT, ETG* 

GET THE FIRST CHARACTER ON THE CA 

CHECK FOR FLIPPED CM COMMAND 
IGNORE CARD IF FLIPPED 

GET THE STATUS OF THE LP 
SKIP NOT LP OR FILE 
SKIP IF EQUIPPED 
ILLEGAL CONTROL STATEMENT 
CHECK FOR PROTECTED 
ILLEGAL CONTROL STATEMENT 

BLANK OUT FIRST WORD 

GET THE RECORD LENGTH 

ADD ONE FOR THE WORD OF BLANKS 

WRITE OUT THE OFFENDING LINE 
ILLEGAL BCD RECORD 

GET JOB NUMBER 

NO ERRORS IF NOT LOGGED-IN 

GET ABORT BIT 

HQ ERRORS IF ABORTED- 

CHECK THE FI6N0RE CRUDF BIT 
NO ERRORS If IGNORE BIT SET 
SET THE IGNORE BIT 

RETURN 
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c 
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15.3 0 
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13000032 
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63500000 



153 3 

0 2 027 

14700037 



1 5 3 4 

0 20 30 

43400060 

c 

00014 0 

1535 

0 2 0 31 

14700060 



1536 

0 20 32 

22400057 

c 

00013 3 

1 5 3 7 

0 2033 

03502035 

p 


153 8 

0 20 34 

02502032 

p 


153 9 

02035 

53020044 



154 0 

020 36 

17600020 



1.541 

02037 

03102050 

Q 


1542 

0 2040 

0510 011,1 



.1543 

02041 

01002063 

p 


i 544' 

02042 

25000036 

c 


.15 4 S- 

02043 

45000037 

c 


154b 

0 2044 

20001515 

p 


1 547 

0 2045 

40000036 

c 


1548 

0 2046 

14100110 



1549 

0 2047 

01002060 

p 


155 0 
1551 

0 2 0 5 0 

05100115 



1552 

02051 

01002063 

p 


1553 

02062 

2500 004U 

c 


' 1554 

0 2 0 53 

45000041 

c 


.155 5 

0 2054 

20001515 

p 


1556 

02055 

21000037 

c 


1557 

02056 

45 0 0 0 0 3 7 

c 


1558 

0 2U57 

14100114 



1559 

02060 

14600001 



1560 

0 20 61 

34000007 

c 


1561 

0 2 0 6 2 

01002031 

p 


1562 
156 3 

02063 

53100000 



1564 

0 2 064 

40000005 

c 


1565 

0 2 0 65 

54100002 

c 


156 6 

0 2066 

53020044 



156 7 

02067 

17477537 



1568 

0 2070 

16600040 



156 9 

02071 

5 3 4 2 0 0 4 H 



15 7 0 

02072 

25000005 

c 


157 2 

0 2 0 7 3 

03701766 

p 


15 7 3 
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GETFILE 

T M A 

IO,,_ 


ANA 

IBUFBIT 


AZ J , ME 

GET4 2 

GET 40 

IMA 

10 


ANA 

AUXBIT 


AZJ,NE 

GETAUX 


ENG 

STATUS 


C N T L 

TASKUNIT 


SHA 

23-AUDIT 


A Z J i L T 

LOGVANSH 


ENA 

IBUF 


ENQ 

TASK3UFL 


READ 

TASKUNIT 


SHA 

23-AUBIT 


A Z J, L T 

LOGVANSH 


SHA 

24+AUeiT-FMBIT 


A Z J , L T 

£05 


SHA 

24+FM3IT-BINBIT 


AZJ j LT 

EQ6 


QS6 i S 

0 


ENQ 

0 


XOQsS 

-0 


INQ 

TASK8UFL 


QSG 

i 


UJP 

.GET40 


STQ 

IBUFWG 


LACH 

IBUF 


ASE 

CMCHAR 


UJP 

£07 


ENA 

1 

GET 44 

STI 

XiSAVE,XI 


STA 

ILINEP 


STA. 

' IBUFP 


ENA 

G 


SHAG 

24 + 2 


TAX 

Xi 


ENQ 

373 


S Q C H 

IBUF f XI 

GfcT-45 

ENQ 

SOB 


LACH 

IBUF—1 » X.1 


AQ J. *NE 

4 + 2 


I JO 

*-z,xi 


IMA 

IG 


A. N A 

AOXSIT 


. AZJfNE ■ 

GET48 


ISG 

7 3 , X1 


UJP 

GET46 ■ 


LOAD 

IBOP+iS 


S T AQ 

IBUF+19 


LD A 

BLANKS 


STA 

I8UF + 18 


ENI 

72,Xi 


UJP 

GET 49 

GET48 

ISG 

77, XI 


UJP 

GET46 . 


t DAG 

IBUF+2G 


STAG 

IBUF+21 


LDA 

BLANKS 


LOQ 

IBUF+19 


STAG 

IBUF+19 


ENI 

76, Xi 

GET49 

ENA 

1 


RAD 

ibufwc 


UJP 

GET45 

GET 46 

TIA 

Xi 


STA 

IBUFCC 


LDI 

X1SAVE,XI 


THA 

10 


ANA,S 

-13 UFB I'T-BI GNBIT 


XOA 

IBUFBIT 


TAM 

10 

GET 42 

LDAQ 

IBUFCC 


AQJ,L T 

GET40 


GET I/O BITS 

CHECK FOR A OO-UNIT 

READ FROM THE OG-UNIT 

THIS SHOULD CHECK FOR 

THE INPUT UNIT GOING ABNORMAL 

INPUT UNIT ABNORMAL 


CHECK FOR ABNORMAL INPUT 


ERROR, UNCHECKED END OF FILE 

ERROR, BINARY RECORD 
FILEBUFL-WC 

HC-FILEBUFL 

WC 


SAVE WORD COUNT 
GET FIRST CHARACTER 
SKIP IF C. M. STATEMENT 
ERROR, NOT CONTROL STATEMENT 
START OF LINE IS AT COL, 2 
SAVE XI 

START OF LINE FOR TV ERRORS 
START OF LINE FOR GETCHAR 

CHARACTER COUNT TO A 


. TERMINATE THE RECORD 

GET TRAILING CHARACTER 

JUMP IF NOT A BLANK 

SEARCH FOR NON-BLANK CHARACTER 

ARE WE READING FROM A DC FILE 
JUMP IF A DO FILE 

SKIP IF A LONG TASK RECORD 

HOVE THE LAST TWO WORDS 
RIGHT 4 CHARACTERS 

AND THEN BLANK FIuL 

INDICATE 72 COLUMNS OF DATA 


SKIP IF LONG RECORD FROM 00 FILE 

JUMP IF SHORT RECORD 

GET COLUMNS 76-8-0 AND SEND MARK 

MOVE RIGHT FOUR CHARACTERS 

GET FOUR BLANKS AND 

GET COLUMNS 7 2-75 

SHIFT THEM RIGHT -4 CHARACTERS 

TRUNCATE RECORD TO 72 CHARACTERS 

ADD ONE TO THE RECORD LENGTH 
LOOP BACK AND FIND END OF TEST 


SAVE CHARACTER COUNT 
RESTORE XI 

CLEAR IGNORE GARBAGE BIT 
SET BUFFER ACTIVE 


GET MAX LENGTH AND CURRENT POSITI 
JUMP IF NO MORE CHARACTERS 
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0 207** 
02 0 7b 

4 710 0 0 0 2 
541QU006 
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STI 

LDI 

X1SAVE.X1 
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02076 
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P 
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22400060 

C 

00014 0 

1577 
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GET34 
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p 

1581 
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T 
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03100044 

p 

1583 


AZJ,N£ 
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ENQ 
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X 
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1586 
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FILE 

0 210 6 

01002144 

p 
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p 

1588 


LPA 
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03102144 

p 

1539 


AZJ,NE 
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02111 

14600015 

c 
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IBUF+1 

02112 

14700024 
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X 
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12000006 
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23-AUBIT 

0 2115 
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12000025 


1595 


SHA 

24+AUBIT-FMBIT 

0 2117 

03300155 
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1596 


AZJ,LT 

AUXCLEAR 

02120 

12000032 


1597 


SHA 

24+FMBIT-BINBIT 
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03301720 

p 

1598 


AZJ.LT 

E06A 
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20001515 

p 

1599 


LDA 

BLANKS 

02123 

40UO0014 

u 

163 0 


S J A 

IBUF 

02124 

05500000 


16 01 


QSG, S■ 

0 

02125 

14700000 


1602 


ENQ 

• O' 

0 2126 

16577777 


1603 


XGQ, S 

-a 

0 2127 

15700025 


1604 


INQ . . 

T.ASKBUFL+l 

02130 

41000007 

c 

■ 1605 


STQ 

T8UFHC 

02131 

05700002 


16 06 


QSG 

2 

02132 

01 0,0 2 X 3 5 

p 

1607 


UJP 

AUXEXIT 

0 213 3 

14 6 0, 0 0 0 4 


1608 


ENA 

■ 4 

0 2134 

01002021 

p 

160 9 


UJP 

GET 44 


0 213 5 

14300155 P 

1611 

AUXEXIT ENI 

AUXCLEAR,X3 

02136 

53020044 

161,2 

AUXEXIT2 TMA 

1,0 : 

02137 

17 4 1f?k 7 

i &ii 

ANA»S 

-AUXBIT-AUXEBIT 

0 214 0 

53420344 

1614 

TAM. 

10 

02141 

14100032 

1615 

ENI 

•■UN.EQUIP.f XI 
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71002113 X 

161 5 t 0 Q I 

XRfcQ 

AUXUNIT,XREQ 

0 214 3 

01 3 0 O' 0 110 

1617 

UJP 

0 , X 3 


02144 

14302146 P 

1619 

AUXERR 

ENI 

*+2,X3 

0 2145 

01002136 P 

162 0 


UJP 

AUXEXIT2 

02146 

14111201 

16 21 


ERM 

MO 7 


GET CURRENT POSITION 

JUMP IF LAST CHARACTER C37BS 

GET THE CHARACTER 
EXIT 


GET ERROR CODE 

RE-ENTER IF ERROR PENDING 

GET THE STATUS 

SKIP IF FILE 

ERROR IF NOT A FILE 

'GET A/U, £OD, AND ADDRESS ERROR B 

JUMP IF ERRORS 


JUMP If A/U 
FM, EXIT FROM DO 
PRINT /BINARY RECORD/ 
BLANK FILL FIRST WORD 


END OF DATA IF HERE 
START OF LINE FOR 00 FILES 


EXIT ADDRESS 

LEAVE 00, INDICATE NO DO UNIT 


ATTEMP TO UNEQUIP AUXUMJ'T 
RETURN 


AUXUNIT ERROR 
EXIT FORM 00 
DO UNIT ERROR 
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E 99 

ERM: 

. M26 . 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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LUN ** UNDEFINED 
XLUN / 

LUN XX UNDEFINED 
GET LUN 

PRINT LUN 
X UNDEFINED 

ILLEGAL FUNCTION-LUN XX 
SAVE LUN 

GET LUN 

PRINT VALUE OF LUN 
ILLEGAL LUN 
PARAMETER ERROR 
FORMAT ERROR 
IS PUBLIC OR BUSY 
LINE TOO LONG 
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1661 

v v " 4 - v 'i' -v v -r 

■v 

Y V V V -4~ '4* Y Y *. 
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1662 


BCD MESSAGES AND CHARACTER STRINGS 



1663 

Y* Y Y Y Y Y Y V 

<Y y V Y Y Y Y Y *4 

Y Y Y Y Y Y V Y Y Y Y V Y Y Y '4 l V Y V Y Y Y Y Y Y ^ Y Y Y Y Y Y 



1665 

1666 




9220 7 

31434325 

1667 

HOI 

BCD » C 

26*ILLEGAL CONTROL STATEMENTS 

0 2215 

63 Q 060 0 0 

1663 

MO 2 A 

BCO * C 

1 * 

0 2215 

630 U6043 

1669 

MO 2 

aco,c 

'5 » L U N 0 

02217 

60644524 

167 0 

MO 3 

0 C D , C 

11, UNDEFINEOO 

02221 

25240031 

1671 

M 0 4 

BCD»C 

22,ILLEGAL FUNCTION LUN 0 

0 2227 

00436445 

1672 

HO 5 

BCD > C 

21,LUN ALREADY EQUIPPEDG 

02234 

24004521 

.1673 

H 0 6 

BCQ *C 

15,NAME NOT FOUNDS 

0224 0 

00244660 

167 4 

H 0 7 

8C0*C 

14 » DO UNIT ERRORS 

02243 

46510026 

1675 

HU8 

8GG j C 

10,FILE BUSYQ 

0 22 46 

00314562 

1676 

M09 

BCD ,C 

22,INSUFFICIENT HARDWAREA 

0 2253 

51250075 

1676+001 M1Q 

B 6 D * C 

17 * (♦PARAMETER ERRORO 

02260 

31434325 

16.78 

Mil 

BCD *C 

12,ILLEGAL LUNO 

02263 

43644560 

1673 

HI 3 

BCD,C 

18* LUN IS NOT A FILED 

02267 

25002631 

1660 

Hi 4 

BCD * G 

15,FILE IS PUBLICO 

0 2 27 3 

00263143 

1661 

Ml 5 

BCD » C 

18,FILE IS PROTECTEDO 

02277 

25240031 

1682 

HI 6 

BCD? C 

18,IS PUBLIC OR BUSYQ ■ 

02304 

00452144 

1683 

H17 

aoo»c 

214 NAME ALREADY PRESENTS 

0 2311 

63006445 

1634 

M .1 & 

BCD , C 

19* UNIT ALREADY SAVEDO 

02316 

00314562 

1665 

H13 

8C0,C 

29,INSUFFICIENT SAVE FILE SPAC 

02325 

25003143 

1666 

1120 

BCD ? C 

13*ILLEGAL.NAMES 

0 2 330 

44250064 

1687 

H21 

B C D * C 

18* UNIT IS NOT SAVEDO 

0 2335 

00452144 

1688 

M2 2 

BCO,G 

22 , NAME-LUN INCONSISTENT!) 

02342 

45630031 

1.683 

M 2 3 

8CQ,C 

32,INSUFFICIENT SCRATCH FILE S 

0 2 352 

23250046 

1.69 0 

H 24 

BCD >C 

2 0 * 0VLOAD FORMAT ERRORO 

02357 

46510043 

16 91 

M2 6 

BCD ,C 

14,LINE TOO LON&Q 

0 2 363 

00633144 

1692 

mi 

BCD* C 

6 , TIME 0 

0 2364 

2.5 6 0 00 60 

1693 

M 26 

BCD* C 

9* SECONOSO 

02367 

44262243 

1,694 

M2 8. 

BGO*u 

. .8* Mf SLKS 0 . 

02371 

60604426 

1.6 9 5 

H 2 3 X 

cc,o*e 

12, . MFBLKLTM 0 : 

02374 

60602326 

1636 

If SO 

..-BCO *€ 

■ . .10 . - CF8LKS tO. . 

0 23 76 

b 0 £ 0 & 2 2 6 

169? 

, H31.. . 

. BCOf.C . 

S , SF.BLKS : 0 , 

02400 

6 0 t! 0 & 0 61 } 

1698 

. M3 2 

BCDtC.,:.:. 

.. S,:V ..LIMIT 00 

02402 

6 3 6 0 0 0 7 5 

1699 

M33 

BCD»C 

13 jr»TRAfFIG IS 0 

0 240 6 

4 7 h U 6 0 b> 0 

170 0 

M34 

SCO > c 

6 ,. P ■ 0 

0 2 •+ 0 7 

60004341 

17 01 

■ M3 5 ■ 

BCO * C 

6,LJA 0 

02411 

2 i. 6 0 6 Q 0 9 

1702 

M36 . 

BCO*C ■ 

4 » A 0 

0 2412 

5 0 6 0 & 0 0 0 

■' i?Q3 

M3 7 

: : iec:e»c : 6 ; 

4,0 0 

02413 

22016060 

1 1 D 4 

M3 8 

8CB,€ 

7 * B1 0 

0 2414 

b 0 6 0 0 0 2 2 

17057 

M3 9 

BCD * C 

7,32 0 

0 2 416 

6 0 0 022 It 3 

7 1706 

, M4Q 0 

8GQ * C 

. 7,83 0 . . 

02420 

00256460 

1707 

M41 

BCO * C 

4,EU 0 

02421 

QU264360 

i ? o a 

M 4 2 

BCO * C 

4s EL 0 ' 

02422 

00325146 

1709 

Si 4 3 

SCD*C 

■6,<R0S>a 

0 2423 

62578032 

1.710 7 

. H44 

BCO * C 

6* <AGV>0 

0 2425 

00322431 

1 711 

M45 

BCD, C 

6'*'<DT¥>S : . 

02426 

65570032 

17 i 2 

M 4 6 

BCO»C 

6,<EXP>0 

0 2430 

0 0322223 

1713 

M4? 

BCO 1C 

6., <BCU>(J 

0 2431 

24570031 

1 ? 14 

M 4.8 

. 8C0» C ' 

h *IM=0 

02432 

44130032 

1715 

M49 

BCD, C 

.10* <AOV/DIV>0 

02435 

00322567 

1716 

M50 

8 C D * G 

10,<£XP/BCD>0 

0 2437 

24570064 

1717 

MSI 

BCO * C 

10 *UNOEFINEDQ 

02442 

00263143 

i ?’ 18 

H52 

BCD* C 

,5 f FILED. 

02443 

25004347' 

17,19 

M53 

QC D * C 

5 * L P 0 

0 2444 

60600047 

172 0 

MS .4 

ecc,c 

5,PUN 0 

0 2446 

23516060 

1721 

mbs 

BCO,C 

5 , CS 0 

0 244 7 

00446360 

1722 

M56 

BCD * C 

5 > MT 0 

02450 

60006363 

17 2 3 

■M57 

BCD*C 

5*TTY 0 

0 2451 

70600047 

1724 

MS 8 

6CD,C 

5* PLOTS 

02453 

45644343 

1725 

M59 

6 C 0 * C 

5* NULL 0 

02454 

0 063&56Q 

172 6 

M6 0 

BCD ,C 

5, TV 0 

02455 

60005121 

172 7 

MSI 

BCD* C 

5,RAF 0 

0 2456 

26600063 

1728 

H 62 

B C u * C 

5,T ASKO 

0 246 0 

4-7 a 3 4 7 6 0 

1729 

H6 3 

BCO ,C 

5 , FTP 0 

0 246 1 

00446226 

1730 

H 64 

BCU»C 

5,MSF 0 

02462 

60006630 

1731 

H 6 5 

BCO * C 

5* WHAT 0 

0 2463 

21630031 

17 3 2 

M66 

8 C 0 , C 

19,ILLEGAL BCD RECORDO 

02470 

24002567 

173 3 

H67 

B C 0 , C 

18,EXTRA END OF FILED 

0 2475 

22314521 

173 4 

Hod 

BCD ,C 

14,BINARY RECORDO 

02500 

24002631 

17 35 

H 7 0 

BCD , C 

14,FILE IS SAVEDO 

0 2504 

4 4 254 4 4 6 

1736 

H71 

B CD * C 

20*MEMORY PARITY ERRORO 

02511 

24513165 

173 7 

M 7 2 

BGDjC 

19, DRIVE FAIL URE-LUN 0 

0 2515 

45600031 

17 3 8 

M 7 3 

8CO »C 

29 , INSUFFICIENT FILE SPACE-LUN 


V "• V "V" V ^ V V T T T V V V V 

* 

*r 

'f 

V V ■¥ V V V V TT V T V -/• '/■ T V V V 


o 

o 
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O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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U 2 5 2 5 

44254446 

1739 

H 7 4 

BOD ,Q 

0 2533 

00263143 

17 4 0 

M7 5 

BUOsC 

0 25 4 2 

00633144 

1741 

H 7 7 

B b D , C 

0 254 4 

63002122 

17 4 2 

i'l 7 8 

BCD , C 

0 255 3 

60003143 

j» 17 4 3 

* 17 44 

M 7 9 

BCD , C 

0 256 0 

4560 0067 

MtiO 

B C 0, C 

02562 

00 6 06 0 21 

1745 

M 81 

SCO ,C 

0 2563 

63600023 

174o 

A 8 2 

acc,c 

0 2565 

00234325 

174 7 

M 84 

8CB,C 

0 2566 

2151U066 

1748 

M85 

BCD, C 

0 2567 

26 44 0 0 51 

1749 

M86 

BCD ,C 

02571 

62250051 

175 0 

H8 7 

BCD,C 

0 257 3 

24006225 

1751 

M 8 8 

BCD ,C 

0 257 4 

2626 0 0 6 2 

1752 

389 

8CD,C 

02576 

22426247 

1753 

h 9 a 

BC 0 , C 

0 2577 

00266662 

1754 

i'l 91 

B C 0 , C 

0 2600 

47006225 

1755 

M92 

B C D , C 

0 2 6 01 

25420051 

1756 

H93 

BCD , C 

0 2603 

66513163 

175 7 

M94 

BCD, C 

02604 

25003021 

175 6 

H95 

BCD , C 

0 2606 

6',236200 

1759 

M96 

BCD , C 

0 26 0 7 

23634600 

176 0 

M 9 7 

BCD , C 

02610 

23633100 

1761 

M 9 8 

BCD, C 

0 2 611 

26314325 

1762 

rl99 . 

SCO , c 

02616 

66465124 

1763 

M10 0 

BCD , C 

02622 

51460066 

17 6 4 

Mi 01 

BCD ,C 

0 26 30 

31434325 

i 7 6 5 

176 6 

1767 

17 6 8 

1769 

177 0 

Ml 02 

B C 0 , C 

0 26 36 

51 2 4 0 Q 6 2 

1770+001 

3 T AIA 8 

BCD , C 


25,MEMORY PROTECT VIOLATIONG 
23,FILE PROTECT VIOLATICN-LUN 0 


9,TIME CUTG 

23,ABNORMAL I/O CONOITIGN-LUN 0 
21,ILLEGAL INSTRUCTION 0 
6,XREQ 0 
6, AT 0 
6,0 NIL 0 

6, CLEARO 
A,WFM 0 

8,RELEASED 

7, REWIND0 
5,SEFFO 

5,SEF30 
5,BKSPO 

5, FWSPQ 
5,SEEKO 
5 i R E A D 0 . 

6iWRIThO 

6, HALT 0 
4 , UCS Q 

4 , C T 0 0 
4,CTIO 

20 * FILE AT END OF DATAO 

19,WORD COUNT IS ZEROQ 

21,WORD COUNT TOO LARGEO 

27,ILLEGAL READ—CONTROL CARGO 


lOfSEABGFl£♦ 
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17 7 4 

V -V- V V V '«* *V V -I- V 

• V V -v "V v V 





1775 


TABLES 





17 76 

•V- 

«# %# M „ 

CP 




17 7 3 

17 79 




0 2 6 4 2 

00000001 


173 0 

OTABLE 

DEC 

Q 


02642 

P 

1781 

010 

EQU 



0 2644 

P 

1782 

010 0 

EQU 



0 2 645 

P 

173 3 

1734 

OlOOO 

EQU 

o 

0 2 6 6 i 

00000062 


1785 

1786 

05 0 

DEC 


02652 

00100000 


1787 

BIT 15 

OCT 


0 26 5 J 

0017777? 


178 0 

PCMASK 

OC T 

o 

02654 

00400000 


178 9 

31T17 

OCX 

0 2655 

0.10 0 0 0 0 0 


17 3 0 

Bill 3 

OCT 


0 2 6 56 

U2 0 00000 


1791 

31T19 

OCT 


02657 

04000000 


1792 

3IT20 

OCT 

o 

0 266 0 

07400000 


1793 

FAULTS 

OCT 

: 0 2 6 O -L 

10000000 


1734 

a i t 21 

OCT 


0 2562 

2000000U 


1735 

81T 2 2 

OCT 


02663 

30 0 0Oil GO 


1796 

8220R21 

OCT 

o 


0 26 63 

P 

1797 

IM 31T S 

EQU 

0 2 b 6 4 

67777777 


173 8 

NBIT23 

OCT 


02665 

40000000 


1739 

, HI 12 3 ■ 

OCT 

o 

02666 

77577777 


1800 

1801 

MBIT 16 

OCT 

0 2 66 7 

00000200 


1802 

88IGN8IT 

OCT 


0 267 0 

10600000 


1803 

IER8ITS 

OCT 


02671 

42400000 


■ 180 3+0 01 

loans 

OCT 

o 

02672 

00130000 


18 0 5 

GMLONMEM 

OCT 

0 267 3 

00144000 


1.8 0 6 

CMHIMEM 

OCT 



64 0 0.1 


18 07 

3REAKL0C 

EQU 



64 0 0 0 


180 8 

BREAKAOD 

EQU 

0 


0 0 013 


180.9 

HILOO 

EQU 


0 0 012 


181 ij 

1611 

1.812 

HIAOD 

EQU 


0 2674 

40404446 


OCOHORE 

SCO 

o 

0 26 76 

21636060 


1813 

BCD AI 

BOO 

02677 

41462260 


18'14 

1815 

1.8 15+001 

BCDJOS 

BCD 


0 2700 

60077734 


ALPHA! 

OCT 

O ! 

02701 

17740177 


1817 

ALPHA 2 

OCT 


O 

O 


o 

o 

o 

o 

o 

o 
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AND CONSTANTS 




V V T -V 


■r -r -v- -r 4r v v v r v v -r v t V'r v rv v v v -r ir ^ -v 


1 , 10 , 100 , 1000 , 10000 , 100000,1000000 

OTABLE+i 

OTABLE+2 

OTA 3.LE+.3 

50 

00100000 

00177777 

00400000 

01000000 

02000000 

04000000 

07400000 

10000000 

290B0G0O 

30000000 LOAD POINT AND £00 BITS 

B220R21 
37777777 
40000000 
77 577777 


8IGNBIT 

2 * AU.B IT+2 + E 00 B IT + 21A E R B IT 
2+FP0XT+2+AUBIT+2+S0RBIT 

CMLGW+10QQ0Q LOWEST MEMORY ADDRESS FOR C.M. 

CMH IGH+1000Q0 HIGHEST MEMORY ADDRESS FOR C.M. 

0 0.16.40 0IB . . BREAK PC 

000640008 

000000138 

0 9 0 0 Q0128 


2, —MORE— 
1» AT 
1 -j «J 0 B 

60077734 

17740177 


CD 

CD 

CD 

O 

0 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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1819 






1820 

18 21 
1822 

V 

CONVERSION 

OF ASCII TO BCD 

0 2 702 

60 5 2 3 6 3 6 

A SC IIBCD 

OCT 

60523635,53161514 

0 2704 

74345420 

.1823 


OCT 

74345420,73403361 

02706 

00010203 

1824 


OCT 

00010203,04050607 

0 2 710 

10111237 

1825 


OCT 

10111237,32135777 

02712 

56212223 

1826 


OCT 

56212223,24252627 

0 2714 

30314142 

182 7 


OCT 

30314.142,43444546 

0 271b 

47505162 

182 3 


OCT 

47505162,63646566 

02720.. 

67707117 

1829 

1830 

1831 


OCT 

67707117,75725576 



1832 


CONVERSTION OF BCD TO ASCII 



1833 



20212223,242*52627 

02722 

20212223 

1834 

BCDASCII 

OCT 

02724 

30313235 

■ 1835 


OCT 

30313235,07060573 

0 27 26 

13414243 

1836 


OCT 

.13414243,44454647 

02730 

505134i6 

183 7 


OCT 

50513416,11030233 

0 2732 

.155 2 5 35 4 

183 3 


OCT 

15525354,55565760 

0 2.734 

61620104 

1839 


OOI 

61620104,12764036 

0 2 7 >i 6 

00176364 

184 0 


OCT 

00176364,65666770 

02740 

71727514 

1.841 

1842 


OCT 

71727514,10797737 
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„ w „ „ „ w w „ „ 

(J) 




1845 







18 46 

V 

ROUTINE 





1847 

-v- 


0 





-r v v t r v 

v v -f -v* r 'i* v v v v 

o 

0 2742 

5 3 41 0 0 3 o 


1850 

FUN 

TQM 


02743 

77664000 


1851 


VFD 


0 2 744 

14102746 

P 

1852 

FUN 0 2 

EMI 


0 2 745 

0 10 U1413 

P 

185 3 


UJP 

G 

0 2746 

01000424 

P 

1854 


UJP 


0 2747 

01002751 

P 

185 5 


UJP 


0 275 0 

0100217 7 

P 

1856 


UJP 

O 

0 Z 751 

05400144 


18 5 7 


A S G * S 

0 2 752 

05400000 


1858 


A o G # S 

02753 

01002175 

P 

1859 


UJP 


02754 

53700000 


. 186 0 . . 


TAI 


0 275 5 

14700000 


1861 


ENQ 

o 

02756 

72300000 


1862 


CMTL 

0 2 757 

03 0 0 2155 

P 

1863 


AZJ,EQ 


02 760 

14100000 


18 6 4 


EMI 


0 276.1 

04200074 


1865 


XSt 

o 

02762 

01002772 

P 

1866 


UJP 

02763 

14102765 

P 

186 7 


ENI 


02764 

01001413 

P 

1863 


■ UJP 


0 27 65 

01002177 

P 

1869 


UJP 

o 

02 766 

04200034 


1870 


ISE 

u-'' 

0 2767 

01002177 

P 

1871 


UJP 


0 277 0 

53500000 


1872 


TAI 

o 

02771 

02502772 

P 

1873 


I JO 

0 2772 

53G10053 


1874 

FUN04 

TMQ 

■ 02773 

72300000 


1675 

FUN06 

CNTL 


0 2774 

02502776 

P 

18 76 


IJD 


0 2775 

01002744 

P 

187 7 


UJP 

o 

0 27 76 

37002663 

P-v 

1873 

1879 

FUNQ8 

LPA 


02777 

04700002 


1880 


QSE 


0 3 0 0 0 

03102744 

p 

1881 


AZJ,NE 

o 

03001 

77664000 


1.68 2 


VFD 

030 02 

03100044 

p 

188-3 


AZJ,NE 


0 3 0 0 3 

01002773 

p 

1884 


^ UJP 


o 


O 


o 

o 

o 

o 

o 

o 

o S 
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TO DO CONTROL FUNCTIONS FOR THE USER * 

r v -v* v v '•* -r v '«* v v v v v t v v v v 'c t '<r -r t v v '7* v - v v v Ar r 7* A" v v v v v v A 5 “• v v v v Ar v v J i' v -r v v -v 


T2 

A15/AIS,09/000 
' A + 2 * X1 
PACKER 
HC 
*+.2 
E15 

MAXLUN 
0 

£04 

X3 

STATUS 
Q + CN TL » X3 
E 0 2 

o,xi 
m t*, xz 

FUN04 

* + 2 »X1 
PACKER 
El 5 

HF) *,X2 

£15 

XI 

* + i ■> X1 
12 

0+CNTL,X3 
FUN08»XI 
FUN 02 

S220R21 
WFM 
FUN 0 2 

A15/AIS,09/000 

REENTER 

FUN 06 


SAVE FUNCTION C00E 

CLEAR ANY PENDING REQUESTS 

GET UNIT NUMBER 
ENO-OF-LINE, RETURN 
LUN 

800 ITEM* PARAMETER ERROR 


ILLEGAL LUN 
SAVE LUN 

CHECK FOR UNEQUIPPED UNIT 

JUMP IF LUN NOT EQUIPPED 

INITIAL NUMBER OF REPITETIONS 

CHECK FOR PAREN 

JUMP IF NO PAREN 

RETURN ADDRESS 

GET NUMBER OF REPITIONS 

END-OF-LIN£ NOT LEGAL HERE 

CHECK FOR CLOSING PAREN 

BCD SYMBOL * PARAMETER ERROR 

TREAT ZERO AS ONE 
GET FUNCTION CODE 
PREFORM THE FUNCTION 
JUMP IF MORE REPEATITIONS 
LOOP BACK FOR MORE PARAMETERS 

CHECK FOR LOAD POINT OR EG D 
WFM LEGAL AT END OF DATA 
DONE IF AT LP OR EOO 
GET ERROR CODE 
REENTER IS ERROR PENDING 
TRY THE FUNCTION AGAIN.*» 


0 

CD 

0 

G 

G 

O 

Q 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



ASSEMBLER/OS3- n.O 09/24/74 1604 PAGE 


CNTLMODE 


0 3 004 
ii 3 0 0 4 
0 5 0 0 6 
0 3 0 0 7 
0 30 10 
0 3 011 
03012 
0 30 13 
0 3 0 14 
0 3015 
03016 
03017 
0 3 020 
0 3021 
0 3 0 2 2 
0 3 023 
0 3 Q 2 4 
0 3 025 
0 3 026 


03027 
0 3 0 3 0 
03031 
0 30 32 
0 3033 
0 30 34 
0 30 35 
0 3 0 3 6 
0 3 0 3 7 
0 3040 


53020052 
5 3 0 1 fl 0 5 3 
14100003 
71000574 X 
02503017 P 
53010044 
17575777 
16702000 
53410044 
53010053 
01300000 
02103016 P 
14100002 
71003007 X 
05100002 
01003006 P 
14100004 
71003021 X 
01003020 P 


1410 0 B 02 

71003025 X 

53020044 

17475777 

55420044 

05100002 

01330000 

14100004 

71003030 X 

01003027 P 



40 




v v v v v v v v r v v v r v v v v v v 'A v -A v v v v -A v v v r v v v v v v v v v ■¥ v v v v v ■? v v r v v v v v v v v v v 'A *v- v * v 

rvvv vv 

1887 

* 



1688 

* 

EQSYS -- THIS ROUTINE WILL EQUIP THE FILE WITH 


16 8 9 

1 -v* - 

THE NAME IN T1 AND T2 TO THE SYSTEM 

* 

169 0 

V 

UNI T » 


18 91 

. "A ■ 


■v 

1892 

"V - 

A - CHANGED 


1893 

V 1 

Q - CHANGED 

■V 

189 4 

T 

XI- CHANGED (ERROR CODE) 

* 

1895 


X2- RESTORED 

* 

1896 

-v- 

X3- RETURN ADDRESS 

* 

1897 


Ti- BCD FILE NAME 

* 

1898 

-a. 

12- BCD FILE NAME 

■v 

1899 

' ■* 


* 


' * * 

* -A * -VT V T T "T J A V V V V T V T "V 'A T V T T T 'A * V -V »A V '-V 'A *r -T T V “A V T •¥ -T * * *tA T T V V *A V V V ”?■ V T V TT V V T V T 

****** 


1902 

EQSYS 

IMA 

Tl 

GET THE FILE. NAME 

190 3 


TMQ 

T2 

INTO A AND Q 

1904 

EQSYS01 

ENI 

EQUIP f XI 

KtQUES.i AN EQUIP 

1905 


XREQ - 

SYSLUN,XREQ 


190 6 


I JO 

EQSYS02,XI 

JUMP IF EQUIP ERRORS 

190 7 


TMQ 

10 


1908 


ANOtS 

-SYSEBIT 

HARK SYSLUN EQUIPEC 

1909 


XOQ 

SYSEBIT 


1910 


TQM. 

IO 

AND RESTORE 

1911 


TMQ 

T 2 

RESTORE Q 

1912 


UJP 

0 » X 3 ' . 

RETURN 

1913 

EQSYS 02 

IJI 

*~1,XI 

JUMP UNLESS LUN ALREADY EQUIPED 

191^ 

EQSYS03 

ENI 

UNEQUIP,XI 

REQUEST UNEQUIP SYSLUN 

1915 


XREQ 

SYSLUN, XREQ. 


1916 


IS 5 

2, X1 

SKIP IF FP AND NOT SAVED 

1917 


UJP 

EQSYS01 

60 TRY EQUIP AGAIN 

1918 


ENI 

RFP, XI 

REQUEST REMOVE FILE PROTECT 

1919 


XREQ 

SYSLUN,XREQ 


1920 


UJP 

EQSYS03 

GO TRY UNEQUIP AGAIN 


192 2 

UNEQSYS ENI 

- UNEQUIP,XI 


1922*001 

XREQ 

SYSLUN,XREQ 

UNEQUIP THE SYSTEM UNIT 

.1924 

TMA ' 

I O 


1925 

ANA,S 

—SYSEBIT 

INDICATE SYSLUN 

19 28 

TAM 

IQ 

IS HOT EQUIPPED 

1927 

ISG 

2 , X1 

SKIP If EQUIPPED 

1.92 8 

UJP. 

■ a ,X3 

RETURN 

1929 

ENI 

RFP,XI 


1929+001 

X R£ Q 

SYSLUN,XREQ 

REMOVE FILE PROTECT 

1931 

UJP 

UNEQSYS 

UNEGU.IP IT 


Q 

Q 

O 

o 

o 


o 


O 

O 


o 


o 

o 

o 

o 


o 


o 


o 

o 

o 

C) 

o 


o 






ASS 
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* V v -v* v V V * 
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■V 





1935 


DOR — 




1936 






193 7 

* DO 





19 3 8 

* OO, LUN 





193 9 

* OO, FILENAME 




194 0 


T V V T T T T ' 

0 3 0 41 

53020044 


194 3 

OOR 

TMA 

0 3 042 

17600020 


1944 


ANA 

0 31) 43 

0 o 10 3 7 6 6 

P 

1945 


A 2 J , N £ 

0 30 44 

14103046 

P 

.1946 


£ NI 

0 3045 

01001413 

P 

1947 


UJP 

0 3046 

01003111 

P 

1948 


UJP 

0 3047 

13077747 


194-9 


SHAO 

0 3 050 

53420052 


195 G 


TAM . 

0 3 05.1 

12077755 


195 0+001 


SHA 

0 3 052 

u h 6 r 11 5 3 


1.95 0+ 0 u c 


A St 

0 3 0 5 3 

01003055 

P 

1950+003 


UJP 

0 3 0 54 

01002177 

P ■ 

1950+004 


UJP 

0 3 055 

14100003 


1951 

DOR 02 

£NI 

0 3 05 6 

53020052 


1952 


TMA 

0 3 0 57 

710 0'2142 

X 

1952+001 


XREQ 

0 3 0 6 0 

025031U2 

P 

.19 5 4 


IJD 

03061 

0460000 1. 


1955 


ASE 

0 3062 

01002144 

P 

1956 


UJP 

03063 

120 0 US 0 6 


1957 


SHA 

0 3 064 

03302144 

p 

1958 


AZ J , L T 

0 3 0 6 c? 

12000326 


1958+001 


SHA 

0 3 066 

03303071 

P 

1958 + 802. 


AZJ,LT 

0 3 0 67 

14 7 0 0 0 O' 4 


195 9 


ENG 

0 3 0 7 0 

720 031157 

X 

195.9+0.0 1 


..CNTL. 

03071 

530200.44 


1961 

QGR08 

TMA ■ 

0 3 0 72 

17477707 


1962 


A.N A ,.S... 

0 3073 

16600030 


1963 


. XOA ! .: : . 

0 3 0 7 4 

53420044 


. 19-6.4 


. tam:.. 

03075 

530 200 ? 7 


1965 


TMA . 

0 30 76 

3 7 0 Q 2 6 6 4 

p 

1966 


LPA 

0 3077 

53420077 


•- 1.967 


TAM 

03100 

7 7 fa 6 4 G 0 Cl 


1968 . 


' \ff D . 

03101 

01000424 

p 

1969 


UJP 

3 3.1 0 2 

0410000Q 


.' 1371 - 

OORa6 . 

ISE 

0 310 3 

01003173 

p 

1972 


UJP . 

0 310 4 

14i0 00 0 4 


1973 


ENi 

03105 

71003070 

X 

1573+001 


XREQ 

03106 

1410 0 O'G 2 


1.37 5 ■ 


ENI 

0 310 7 

71003105 

X 

19 75+ 0 01 


XREQ - 

03110 

010 03055, 

p 

197? 


UJP 

0 3111 

53020044 


1973 

OOR 12 

TMA 

0 3112 

17600010 


I96 0 


m A 

0 3113 

03U02177 

p 

1981 


A 2 J, £ Q 

03114 

01003071 

p 

193 2 


UJP ' 


ROUTINE TO PROCESS THE ^002 COMMAND 


* 


-A t -A v *A r v v v v iA r 4 r r -r v “* t v v v v t r v v v ^A v v -v* t v- -r v v v -v -r v r -v 'A ^ ^A r ■¥• v t v t ; A ^ t ir if 


IQ44U-4J444C 

AUXBIT 

£01 

* + 2 ,X1 

PACKER 

DORIS 

-24 

II 

6-24 

f'ffhSU 

*+2 

£15 

EQUIP,XI- 
II 

AUXUN1TiXREQ 

DOR 06., XI 

FILE 

AUXERR 

23-AUBIT 

AUXERR 

24+AUDIT-SDR8IT 

DOR08 

REWIND 

AU.XUN.IT J...C.NTL . 

10- 4 

-IBUFBIT-AUXBIT- 
A tl X B I.T+A If X E 81T : : 
IQ ? 

RF77 
NBIT-23 
RF7 7 

Ai5./AI:S,09/Q 0 0 

.HC' ; U.:/;:' 


..1-1, XI . 
EQERR 

gpp '£i 

AUXUNIT, XREQ 
.UN EQUIP, Xi 
AUXUNIT jXREQ 
D-0JR92 


IQ 

AUXE8IT 
E15 
DOR 08 


GET I/O BITS 

NOT LEGAL IF FROM THE 00 UNIT 

RETURN ADDRESS 

GET THE NEXT ITEM 

END OF LINE 

LUN TO Q 

SAVE NAME. 

1ST CHAR TO ft LOWER 
Skip if bad fill 

PARAMETER ERROR 

RESTORE NAME 
ATTEMPT TO EQUIP IT 
JUMP IF ERRORS 
SKIP IF FILE 
MUST BE A FILE 
CHECK FOR A/U 


GON*T REWIND IF DESTRUCTIVE READ 
ALWAYS REWIND UNITS AND NAMES 
REWIND 

GET I/O BITS 
■AUXE8IT 

DO-UNIT EQUIPPED AND ACTIVE 

CLEAR THE ABORT BIT 

SO THAT HE KNOW IF 

IT HAS BEER SET 

CLEAR ANY PENDING REQUESTS 

PROCESS CONTROL STATEMENTS 


3KIP 1F UNIT IS EGUIPPE0 
PRINT EQUIP ERROR MESSAGE 


UNEQUIP THE UNIT 
RE-TRY THE EQUIP 


GET I/O BITS 

CHECK FOR UNIT EQUIPPED 

PARAMETER ERROR 

READ FROM OO-UNIT 








A S3 h H 8 LEK/0 

S3 1 * 0 

09 

724/74 1604 PAGE 42 CNTL 

MODE 




V V V V V V V -w- 

193 5 

V V V V V V V V 




1986 * 

1937 * 

198 3 - 

EQUIPR 




1939 * 

199 0 ■ 

[ ( 




1991 * EQUIP 

[ ,LUN= i 




199 2 * 

199 3 * 

199 4 * 

1995 * 

l i 




199 6 * 

■»' V V 'J' V ’T *f 

V '/■* -v V V -V" V V 

U 3115 

14103117 

P 

1999 EQUIPR 

ENI 

0 3116 

01001413 

P 

2Q.8Q 

UJP 

0 3117 

01000424 

P 

2 0 01 

UJP 

03120 

01003122 

P 

2002 

UJP 

03121 

01002177 

P 

2 0 03 

UJP 

03122 

05400144 


2 0 04 

ASG »S 

0 3123 

05400000 


2 Q- 0 5 

A S G , S 

03124 

01002175 

P 

2 0 0 6 

UJP 

03125 

53700000 


2 0 8 7 

T AI 

0 312 6 

14103130 

P 

2008 

ENI 

03127 

Q10G1413 

P 

2 0 0 9 

UJP 

0 313 0 

01002177 

P 

2010 

U J P - v . 

03131 

13077747 


2011 

SHAQ 

0 3132 

53420052 


2 012 

TAM 

0 3133 

36003202 

P 

2 013 

SCA 

0 313 4 

03004477 

P 

2014 

AZJ,EQ 

0 3135 

16614600 


2 015 

XQA 

0 313 6 

0 3 0 0 44 7 6 

D 

1 . 

2016 

AZJ.iEQ- 

0 3137 

53020052 


2 91 7 

TMA 

0 314 0- 

12077755 


2017+001 

bHA' - 

3 3141 

04677753 


2017+902 

ASE 

03142 

01003144 

P 

.2017+003 

UJP 

03143 

01002177 

P 

2017+004 

UJP 

03144 

53020Q52 


2017+035 £Q 06 

IMA 

0 3145 

14100003 


2 016 

ENI 

0 3146 

71300000 


2 0 19 

XREQ 

03147 

02503173 

P 

2 02 0 

IJO 

0 315 0 

53020052 


20 2 0+0 01 

TMA 

0 3151 

03003115 

p 

2 0 2 0 + 0 0 2 

AZJ«£S 

0 315 2 

04200074 


2.220+003 

ISE 

0 3153 

01003115 

P 

2 0 21 

UJP 


U 31 5 4 53730054 2021+801 TIM 
03155 14103157 P 2021+002 EMI 
03156 01001413 P 2021+093 UJP 
03157 01002177 P 2021+004 UJP 
03160 01002177 P 2 021+005, UJP 


0 3161 

04200034 


2021+006 


ISE..- ■. 

0 316 2 

01002177 

P 

2021+007 


UJP 

03163 

20001515 

P 

2021+003 


LDA 

0 3164 

03502177 

P 

2021+009 


AQJ,ME 

0 3165 

53020052 


2021+010 


TMA 

0 3166 

14100023 


2021+811 


ENI 

03167 

53330054 


2021+012 


T MI 

0 317 0 

71300000 


2021+013 


XREQ 

0 3171 

02502150 

P 

2021+014 


I JO 

03172 

01003115 

P 

2021+015 


UJP 

0 3173 

20103200 

P 

2 0 23 

EQERR 

LOA 

0 3174 

04100002 


2 0 24 


ISE 

0 3175 

01001264 

P 

2 0 2 5 


UJP 

0 3176 

53410063 


2026 


TQM 

0 3177 

01002156 

P 

2 02 7 


UJP 

0 32 00 

00011135 


2 029 

EQ.T.A3 

ERROR 

0 32 01 

00011162 


2 03 0 


ERROR 

0 3.2 0 2 

44636060 


2 0 31 

3C0MT 

BCD 

03203 

00011217 


2 0 3 2 


ERROR 

0 3204 

00011231 


2033 


ERROR 



*+2,Xl 

PACKER 
MC 
* + 2 
E15 

MAXLUN 

0 

E04 

X3 

*+2,Xl 
PACKER 
El 5 

-24 

T1 

8CDMT 

MTEQUIP 

H#NSF # XOR H#MT 
MSFEQU1P 

T1 

6-24 

7775m 

EQ06 

£15 

li 

EQUIP,XI 
Q+XREQ,X3 
.EQERRvXl ; ' 

T1 

EQUIPR/ 

H# t *.,.X2'.: 

EQUIPR 
13, X 3 

* + z ,xi 

PACKER .. . . ■ 

El 5 

£15. 

ELJL'5 + 

BLANKS 
El5 .. 

II 

ASSIGN,XI 
T 3 » X 3 
XREQ,X3 
SENDERS,XI 
EQUIPR 


GET NEXT ITEM 
END OF LINE 
LUN 

BCD SYMBOL, PARAMETER ERROR 


ILLEGAL LUN 


GET NEXT ITEM 

END OF LINE IS NOT LEGAL HERE 
LUN, PUT LUN IN Q, A=0 
BCD, SAVE UPPER HALF 
CHECK FOR MT . 

MV -GOODNESS, MAG TAPE EQUIP 

JUMP IF A MSF 
RESTORE FILE NAME 
PUT FIRST CHAR IN A LOWER 
SKIP IF RUN ONLY FILE 

NOT. 

^PARAMETER ERROR t- 
RESTORE FILENAME AGAIN. 

ATTEMPT TO EQUIP IT 

JUMP IF ERRORS 

GET FIRST WORD OF NAME 

JUMP IF LUN SPECIFIED 

SKIP IF POSSIBLY DESTINATION 

LOOP 

SAVE LUN NUMBER 

PACK DESTINATION NAME 

HOST BE SYMBOL 
MUST BE TERMED BY A ) 


SECOND HALF MUST BE BLANKS 


RETORE LUN TO X3 
SEND THE DEVICE 
JUMP IF ANY ERRORS 
DO NEXT PARAM 


£QTAO,XI GET ERROR MESSAGE ADDRESS 

3-1,XI SKIP IF LUN IN Q UNDEFINED 

ERROR-IN A PRINT THE ERROR 

T 2 . SAVE THE LUN IN T2 

E02A PRINT FLUN XX UNDEFINED# 


H05 1—LUN ALREADY EQUIPPED 

M06 2—NAME NOT FOUND 

1, MT 3—LUN IN Q UD, SPECIAL CASE 

MO8 4—FILE BUSY 

HOG 5—INSUFFICIENT HARDWARE 


G> 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 





0 


Cl' 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

■ O. 

o 

o 

o 
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GNTLMOOE 

ERROR 


Hi 0 


6—PARAMETER ERROR 


o 

0 

o 

o 

o 

v 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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(D 




2 03 7 

v v r V v v v 

v- 

v r v -V ~r v 

■v v v -r v v v v v v v v v v v *r v v v -v v 





2 0 3 0 

V 

DREAKR 

—ROUTINE TO PROCESS 





2 0 39 

-T> 

GOR 

-- ROUTINE TO PROCESS 

0 

! 



20 4 0 

■v 

MIR 

-- ROUTINE TO PROCESS 




2 0 41 

■v- 

ST ARTR 

— ROUTINE TO PROCESS 





2 0 42 

... 







2 04 3 








2 044 

“• BREAK 

C, PARAMETER STRING J 

v s/ 




2 0 45 

* GO 

£, PARAMETER STRING ] 





2 046 

* MI 

[ , PARAM. 

ETER STRING ] 





2 047 

* START 

C, OCTAL 

ADDRESS £, PARAMETER 

0 




2043 

* 








V T T V T V *r 

T V V V V V 

v r v v vv v t r v -nf- t 'A “ir v r ^ v v 

O 

<3 32 06 

14164 0 G 0 


2 0 51 ■ 

BREAKR 

ENI 

8REAKAD0,XI 

0 3207 

01003212 

P 

2052 


UJP 

MI 0 2 





2 05 3 





0 3210 

14100012 


2054 

MIR 

ENI 

MIAGO,XI 

o 

0 3211 

55400000 


2 05 5 


ROS 



U 32.12 

53020042 


2.056 

HI 02 

TMA 

IS 


0 3213 

16600004 


2 0 57 


X0.A 

48 


03214 

12 00 0 0 0 5 


2058 


3H A 

5 

G 

0 3215 

53010041 


2 0 6 5 


IMG 

PC 


0 3216 

1240 0010 


2060 


SHQ 

8 


0 3217 

17600200 


2061 


ANA 

2008 


0 3 2 2 0 

13000020 


2 0 62 


SHAQ 

24-8 

O 

0 32 21 

40100000 


2063 


ST A 

0 , X1 

03222 

55000000 


2 0 b 4 


RIS 



, 03223 

11164001 

35000 1 

2065 


ECHft 

BREAKLOC 


03224 

04164000 


2066 


ISE 

8REAKA00 , XI 

o 

Q3225 

14600013 


■ .20 67 


ENA 

MILOC 


0 3226 

53 42 0 Q 41 


2068 


TAM 

PC 


0 3227 

5 3 0 2 0 G 4 2 


2069 


TMA 

IS . 


Q 3230 

17477773 


.2 0 7 0 


A N A » S 

-4 

o 

03231 

01003250 

P 

2 0 7 1. 


UJP 

... STRT03 


0 3232 

14700000 


2073 

- SJARIR 

ENQ 

0 

o 

0 3233 

14377776 


2 0 74 


ENI 

-1 , X 3 

0 3.2 34 

53200000 


2 975 


TIA 

X2 


03235 

53600000 


2 0 76 

STRT0 2. 

TAX 

X2 ■ 


03236 

05600010 


2 077 


ASG 

8 

o 

03237 

0100:327 4 

P 

2 07.8 


UJP 

STRT06 

0 3 240 

04600037 


2 9 79 


ASE. 

378 


03241 

02703277 

P 

2 08 0 


IJO . 

V SIRTO8,X3. 


03242 

05500000 


2 9 81 


QSG, S 

0 . . 

o 

0 3 243 

01002177 

P 

20 8-2 


UJP 

E15 

03244 

11177777 

37777 3 

208-8 


EC HA. 

1777778 


0 3245 

03702177 

P 

2 0 8 • 4 ■ 


AQJ»LT 

E15 


0 3246 

5-3410041 


2 3 8-5 


TQM 

PC 

o 

03247 

14600000 


2 086 


ENA 

8 

0 325 0 

53420042 


2087 

STRT.0 3 

TAM 

IS 


0 3251 

141U3253 

P 

208 8 

GOR 

ENI 

*+2,XI 


i 03252 

01001234 

P 

2089 


UJP 

outbuf 

o 

03253 

14103257 

P 

2 09 0 


ENI 

EXIT,XI 


03254 

04200073 


2 091 


ISE 

H7,X,X2 


0 3255 

01003257 ■ 

P 

2 09 2 


UJP 

EXIT 


0 3255 

01003535 

P 

2093 


UJP 

PARAMOUT 

o 

03257 

53020044 


2 0 94 

EXIT 

TMA 

10 

0 3260 

17602000 


2095 


ANA 

SYSEBIT 


0 32 61 

14303263 

P 

2096 


ENI 

*+2,X3 


03262 

03103027 

P 

2 09 7 


AZJ,N£ 

UNEQSYS 

o 

0 3263 

53020044 


2098 


TMiA 

IO 

03264 

17477637 


2099 


AN A, S 

-IQUF8IT-0BUFBIT 


0 3265 

53420044 


210 0 


TAM 

IO 


0 326 6 

53130050 


2101 


TMI 

Bl, XI 

o 

03267 

53230047 


2102 


TMI 

B 2 , X 2 

0 3270 

53330046 


210 3 


TMI 

B3,X3 


0 327.1 

53020043 


2104 


TMA 

- ■ A ■ . 


0 3272 

53010051 


2105 


TMQ 

Q 

o 

03273 

77634000 


2106 


VFQ . 

A15/ACR,09/000 - 




210 7 








2108 





0 3274 

14300000 

- 

210 9 

STRIOS 

ENI 

0 , X 3 

Q 

0 32 75 

12000025 


2110 


SHA 

24-3 

0 3276 

13000003 


2111 


SHAQ 

3 


0 327 7 

.. 

14203235 

P 

2112 

STRT08 

ENI 

STRT02,X2 


o 


V V V A' V V V V V V v V V V -V" V V V V V A' V V -V V V V V V -V V V V 

THE BREAK COMMAND, * 

THE GO COMMAND, * 

THE MI COMMAND. * 

THE START COMMAND. * 


STRING 3 3 * 


BREAK STATUS ADDRESS 


MI ADDRESS 
InuICaiE LOWER Cure 
GET ROS BIT 
SET TO 1 IF RI5 

GET USERS PC 

REMOVE ALL BUT RIS SIT 
MOVE RIS AND PC INTO A 
STORE INTO USERS CORE 


SKIP IF BREAK 
MI LOCATION 
UPDATE USERS PC 
GET IM AND FAULTS 
CLEAR THE ROS BIT 


INITAL NUMBER IS ZERO 
INDICATE NO DIGITS FOUND 
GET LAST CHARACTER 

SKIP IF NOT OCTAL 

EXIT IF NUMBER FOUND 

OR ON END OF LINE 

LOOK. FOR A DIGIT IF NO NUMBER 

SKIP IF POSITIVE 

PARAMETER ERROR IF NEGATIVE 

JUMP IF TOO LARGE 

PUT INTO USERS PROGRAM COUNTER. 

CLEAR FAULTS AND MASK 

LOAD USERS FAULTS, MASK AND ROS 

RETURN 

RETURN ADDRESS 
SKIP IF PARAMETER STRING 
JUMP IF NO PARAMETER STRING 
OUTPUT PARAMETER STRING 

CHECK FOR SYSTEM UNIT EQUIPPED 

UNEQUIP IT IF EQUIPPED 

GET TYPE OF CONTROL MODE 

REMOVE BUFFER BITS 

RESTORE XI 

RESTORE X2 

RESTORE X3 

RESTORE A 

RESTORE Q 

EXIT BACK TO USER, RESTORE RF40-5 


INDICATE A DIGIT FOUND 
SHIFT IN NEXT DIGIT 

ENTER RETURN ADDRESS 


0 

Q 

Q 

0 

0 

O 

ZJ 

O 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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CD 

0 3 3 0 0 

01001517 

P 

2113 


UJP 

GETCHAR 

GET THE NEXT CHARACTER 

ni 





V V V "V V V V V V 
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2116 

* 



* 





2117 

f ... 

XABORTS 

— ROUTINE 

TO COMPLEMENT THE A80RT BIT * 





2118 




Y 

o 





v "V* -v- V~ r -v* -v- v* -A 

Y Y Y Y V -a* Y 'i~ *i 


2f. if. » if ^f if « if. ^ ^ « Y V Y Y Y Y Y Y^ V ^ Y Y V Y V ^ ^ Y Y Y Y Y Y Y Y ^ ^ ^ 


0 33 01 

53020077 


2121 

XA30RTR 

TM A 

RF77 


o 

03302 

36002665 

P 

212 2 


SC A 

81T 23 



0 3303 

P 

212 3 

XAB01 

EQU 


' ■ . ' i ’ ■ 


0 3303 

53420077 


2124 


TAM 

RF7 7 

: ;i ■■ ■ . ■ • . ■ .■ . 


03304 

01004157 

P 

2125 


UJP 

OCR 

REMOVE REST OF COMMAND 

o 




212 6 






0 3305 

P 

2127 

A O OR res 

EQU 

* 



Q 3 305 

53020077 


2128 


IMA 

RF77 



0 3306 

37002664 

P 

2129 


LP A 

NBIT23 

CLEAR ABORT BIT 

o 

u 3 3 u 7 

y±0U33U3 

P 

213 0 


UJP 

X AS 01 



o 


CD 

CD 

O 

o 

o 

o 

o 

o 
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o 


o 

o 

o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


o 


o 
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0 3310 
03311 


03312 
0 3313 
03314 
0 3 315 
0 3316 
0 3317 
0 332 D 
03321 
0 3322 
03323 
03324 
03325 
0 3 3 2 b 
0 33 27 
0 3 3 3 0 
0 3 J 31 
03332 
03333 
0 v) 3 3 4 
03335 
0 3 3 3 6 
0 3337 
0 334 0 


0 3 3 4.1 
03342 
03343 


0 3344 
0 3 3 4 5 
0 334b 

0 3347 
0 3 3 5 U 
0 3 351 
0 3352 
0 3353 
0 33 5 4 
03355 
0 3 356 


03357 

03360 
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2133 

* 



* 



2134 

r 

DESTROY - 

- ROUTINE TO 

PROCESS THE DESTROY COMMAND * 



u «L o 

213 6 

* 



A? 



213 7 

213 8 

* DESTROY 

I, FILENAME 3 . . , 

% 



V V V V -»* V V V V ■¥■ "«- 5 (T V" T V V V 

T V -V if -vA' T V'f V V 

Y Y Y V T T V Y Y Y Y V Y V Y Y Y Y Y* 'Y Y Y Y Y Y Y Y Y T T Y Y Y Y V ^ Y V ^ 

14100002 


2141 

OS 104 

EMI 

UNEQUIP,XI 


71003037 

X 

2141+001 


XREQ 

SYSLUN,XREQ 

UNEQUIP THE FILE 

14103314 

p 

2144 

OESTROYR 

EMI 

*+2,Xl 


01001413 

p 

214 5 


UJP 

PACKER 

GET NEXT ITEM 

010U0424 

p 

2146 


UJP 

MC 

END OF LINE, DONE 

010 0 217 7 

p 

214 7 


UJP 

E.15 

NUMBER, PARAMETER ERROR 

14303320 

p 

2148 


ENI 



01003004 

p 

2149 


UJP 

EQSYS 

EQUIP THE SYSTEM UNIT 

02503341 

p 

2150 


IJD 

DST 06 * XI 

EQUIP ERROR 

03203330 

p 

2 15 1 


A 2. J § G E 

DST02 ■ 

JUMP IF MOT PROTECTED' 

14100310 


2151+001 


ENI 

2 S 0 » XI 

MAX NUMBER OF ERRORS 

5 o» 5 6 0 0 5 4 


2151+002 

DST01 

TIM 

T 3 * XI 

SAVE ERROR ' COUNT 

14100004 


215 2 


ENI 

RFP,XI 


5 3 0 2 0 U 5 2 


215 3 


IMA 

Ti 

GET FILENAME 

71003311 

X 

2153+001 


XREQ 

SYSLUN,XREQ 

REMOVE FILE PROTECT 

02503347 

P 

2158+002 


•130 

0S7G7,X1 

JUMP IF ERRORS 

53020052 


2156 ' 

DST02 

IMA 

Ti 

GET FILENAME 

53010053 


2157 


TMQ 

T 2 


1410 Q000 


215S 


ENI 

DELETE * Xi 


710 0 3326 

X 

2158+ 0 0 i 


X R h Q 

SYSLUN,XREQ 

TRY TO DELETE THE NAME 

14700003 


216. a 


■ fc-NQ 

RELEASE 


72003333 

.X 

2160+001 


CNTL 

SYSLUN,CNTL 

RELEASE THE FILE 

04100005 


2162 


ISE 

5,.XI ■ 

SKIP IF DELETE ERRORS 

01003310 

p 

216 3 


UJP 

DSTQ4 


01003330 

p 

2164 


...UJP. 

DST02.; 

TRY THE DELETE AGAIN 

04100201 


2166 

DSTG6 

. ISE. 

2-1,XI 

SKIP IF NAME NOT FOUND 

01003173 

p 

216 7 


UJP 

EQERR.. 

FILE BUSY IS BAD 

01003312 

p 

216 8 


.UJP; 

DESTRQYR 

BUT NAME NOT FOUND IS OK 

53420052 


21? 9 

RENERR2 

TAM 

Ti 

RENAME RFP ERROR 

5341.0 0 53 


2171. 


TQM 

1 2 

SAVE NAME 

01003357 

p. 

21 ? 1+091 


UJP 

DSTQ'8 


04100001 


2171+ 00 3 

OS T 0 7 

ISE 

2-1,XI 

SKIP IF FILE BUSY 

01003357 

a 

1 

217H 00 4 


UJP 

DS T 08 


53130044 


2171+005 


I MI ■ 

10,XI - 


17100003 


2171+006 


AMI 

SY SMASK , Xl 

GET SYSTEM CODE 

04100.002 


2171+007 


ISE 

TASKSYS,XI 

SKIP IF BATCH 

01003357 

P 

2171+008 


UJP 

DS T 08 


53130054 


2171+009 


TMI 

T3,Xi 

GET ERROR COUNT 

02503323 

P 

217 1+01 a 


I JD 

OST01,XI 

TRY AGAIN 

14102203 

P 

2173 

UST03 

ENI 

E 71, X1 

FIS PUBLIC OR BUSY* 

01001376 

P 

217 4 


UJP 

SYMQUT 

PRINT BCD FILENAME 


CD 

CD 

Q 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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CD 





v 'r v r v v v v v 


v v v v v t v 'r 'A v v v v v v -r v -r 

v v v v v v -r v v v r v -v r nr v v v v v v v v if v -r v v v r v 

* * * * 

Cf) 

KW 




217 7 

* 




* 






2178 


RF PR — 

ROUTINE TO PROCESS 

REMOVE FILE PROTECT. 







2179 

* 

FPR — 

ROUTINE TO PROCESS 

FILE PROTECT COMMAND. 

* 


O 




218 0 

V 




* ' • 

I/... : %Q 




2131 

* ( FP ) 

( LUN 

) 







218 2 

- ( ) 

i , 

) 


. * ■ 






2183 

* C RFP ) 

{ FILENAME )... 




o 




216 4 

v 




% 

O 







V V T V Y -V T T -V V V T 'f V V ^ V V V "f V 'A V V "V 

v r v v v -r r v 6* nr ^ v y v v ■?* v v *r v t 

r y^ ^ 

o 

0 3 361 

1624 U 0'0' 0 


213 7 

RF PR 

XU I 

400006,X2 

INDICATE RFP 


O 


0 3362 

14300004 


213d 

FPL 

ENI 

RF P'»X 3 





0 3 3 o 3 

U5240000 


21 '6 9 


JC SG 

400006,X2 

SKIP IF REMOVE FILE-PROTECT 



o 

03364 

14 3 0 0 Q 0 5 


219 0 

FPR 

ENI 

F P » X 3 

INDICATE FILE-PROTECT 


o 


U o 3 6 5 

17200077 


2191 


AN I 

77B ,X2 

REMOVE FLAG BIT 




0 3 5 b 6 

141U 3 3 7 0 

P . 

2192 


'hmu | *4 .TIL 

*.+ 2.,.Xl 





0 3367 

01001413 

P 

2193 


UJP 

PACKER 

GET NEXT ITEM 



o 

03370 

01000424 

P 

2194 


UJP 

MC 

FOUND END OF LINE 


O 


0 3371 

01003412 

P 

2195 


UJP 

FP0 4 

FOUND NUMBER 



03372 

04300005 


2196 


ISE 

FP j X3 

FOUND BCD ITEM 



o 

0 3373 

16240000 


2197 


XQI 

40000B,X2 

SET FLAG IF RFP 


o 

0 3374 

14303376 

P 

2198 


ENI 

*+2»X3 



0 3375 

01003004 

P 

2199 


UJP 

EQSYS 

EQUIP THE FILE 



0 3 3 7 6 

02503173 

P 

2200 


I JO 

EQERR , XI 

JUMP IF EQUIP ERRORS 




0 33 77 

53020052 


2201 


TMA 

T1 

RESTORE THE FILE NAME 



o 

03400 

14303335 

X 

2202 


ENI ■ 

SYSLUN , X3 

USE SYSLUN IF NAMED FILE 


o 

0 3401 

14100004 


22 0 3 

FP02 

ENI 

RFP,XI 




03402 

05240000 


. 2204 


ISG 

40000B,X2 

SKIP IF RFP FLAG IS SET 




0 oh 0 3 

14100005 


22 0 5 


t N1 

FP, XI 

INDICATE FP 



o 

0 3404 

71300000 


22 0 6 


X REQ 

fl+XREQ,X3 



o 

0 34 0 5 

0250215.1 

P 

2207 


IJD 

FP06,XI 

JUMP IF ERRORS 



0 34 0 6 

04303400 

X 

220.8 


ISE 

SYSLUN,X3 

SKIP IF THE SYSTEM UNIT 




0 3407 

01003362 

p 

2209 


UJP 

FPL l 




o 

0 3410 

14303362 

p 

2210 


ENI 

FPL,X3 

ENTER RETURN ADDRESS 


o 

0 3411 

01003027 

■ n 

r 

2211 


UJP 

.UMEOSYS 

ONE QUIP THE SYSTEM UNIT 


o 

0 3412 

04300005 


22 13 

FP 04 

ISE 

FP, X3 

FOUND LUN 


o 


0 3413 

16240000 


2214 


KOI 

40 0 Q Q8 > X2 

SET RFP FLAG 




0 3414 

05400144 


2215 


ASG,S 

MAXLUN 




o 

0 5415 

05400000 


22:16 


A S G •* S 

:: .. 



o 

05416 

01002175 

p 

2217 


UJP . 

eo.% ■ : 

* ILLEGAL LUN* 



0 5417 

53700000 


22.18 


:..T.AI 

: 7X3 . I.:.::. 

REMEMBER THE LUN 




03420 

01003401 

p 

• 2219 


y j p 

FP 02 ' 




o 

03421 

05240 0 0 0 


2221 

FP 08 

ISG 

4 0 Q 0 0 B , X 2 

ERRORS, SKIP IF RFP 


o 

o 

0 3422 

15100003 


2222 


INI 

FPERS-RFPERS,XI 

POINT TO FP 


o 

03423 

20103425 

p 

2223 


LDA 

RFPERS,XI 

GET ERROR LOCATION 



0 3424 

Ul001264 

p -. 

2224 


UJP . . . 

ERRORINA 

ERROR CODE IN A 



o 


03425 

p 

2226 

RFPERS 

EQU 

Sf, 

1-LllN XX UNDEFINED 


o 


0 3425 

GO 011217 


222 7 


ERROR 

HO 8 

2-FILE IS SUSY 


0 

o 

0 3426 

00 0124 0.2 


2228 


ERROR 

■ 'H7 0 

3-NAME AND LUN 00 NOT AGREE 



0 3427 

00011336 


2229 


ERROR 

Ml 4 

4-FILE IS PUBLIC 




03430 

p 

2230 

FPERS 

EQU 


i-LUN XX UNDEFINED 




0 3430 

00011314 


2231 


ERROR 

M13 

2-UNIT IS NOT A FILE, RAF, OR 

TAP 


o 










o 

o 





v v 'r v v 'r -f v 

-£ v r t r v ”f r v 

V V •¥■ V V V TV V V vr V V V -V V V 

V V V V V V V V V V V V V V V ~C V V V V T V T r V ^ V v r V V V V 


o 

o 




2 2 3 4 
2235 
223 6 

V 

UNEQUIP 

— ROUTINE TO PROCESS THE UNEQUIP STATEMENT 

Y 

* 

V 

o 





2237 

V 










2 23 8 

•- UNEQUIP [» LUN 

j 4 » O 




o 




2 239 

2 240 

V 

V 




* 

o 






v -r n~ v r 'r A' *i* 

r v v A? nr v v v -v- 

■v v r v v -r v v v v v n* Ar v v 

V -»* n* V -v Y Y Y Y V Y Y V Y Y T Y * 1 “ Y Y Y V nr Y Y V Y Y T V V V Y 

nr v- -v n£;.. 





o 


o 
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0 3431 

01000424 P 

2243 

UNEQQ 7 UJP 

HC 

ENO-OF-LINE 

0 3 432 

01003434 P 

2244 

UJP 

* + 2 

FOUND DECIMAL NUMBER 

0 34 3 3 

01002177 P 

2 245 

UJP 

E15 

FOUND BCD SYMBOL 

0 3 434 

05400144 

2 24 6 

ASG,S 

MAX LUN' 


0 3 435 

05400000 

224 7 

A S G » S 

U 

CHECK FOR LEGAL LUN 

03436 

01002175 P 

2248 

UJP 

E04 

ILLEGAL LUN 

03437 

53700000 

224 9 

T AI 

X3 


0 3 440 

14100002 

225 0 

EMI 

UNEQUIP,XI 


03441 

71300000 

2251 

X R 2 Q 

XREQ.X3 

UNEQUIP THE LUN 

0 3442 

02502154 P 

2252 

IJO 

UNEGERS,XI 

JUMP IF ERRORS 

0 3443 

14103431 P 

2253 

UNEQUIPR ENI 

UNEGQ7,X1 


0 3444 

01001413 P 

2254 

UJP 

PACKER 

GET THE NEXT ITEM 


03445 P 

2266 

UNERX 

EQU 

* 

L—LUN XX UNDEFINED 

03445 14111355 

2257 


ERM 

MIS 

1 2--FILE IS PROTECTS 



Q) 

0 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

G 

o 

o 









o 

o . 

o 

o 

o 

o 

o 

o 


o 


V V V -«' V V V '»* V V V V V V V V V V V "V V V 'r T V V -V V V “V* -V V Y V 

-r 

THE SAVE STATEMENT * 


r v v -v> r V v v -r- v -r A* v -r v v *v- or -v- 4 t t vt vr-r^ V y t v -v ^ v 


FOUND END OF LINE 
FOUND UNIT NUMBER 
FOUND BCD SYMBOL 


JUMP IF ILLEGAL LUN NUMBER 

SAVE LUN 

RETURN ADDRESS 

GET THE NEXT ITEM 

FOUND END OF LINE 

FOUND NUMBER, ILLEGAL NAME 

ATTEMPT TO SAVE THE FILE 

JUMP IF ERRORS 
GET THE NEXT ITEM 


GET THE ERROR CODE 
PRINT ft MESSAGE 


1— LUN XX UNDEFINED 

2— -NAME ALREADY PRESENT 

3— UNIT ALREADY SAVED 

4 — UNIT IS NOT FILE (OR RAF) 

5 — NOT ENOUGH SAVE FILE SPACE 
8--ILLEGAL NAME 


CD 

qj 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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v r v -v v v v v 

■*V“ V V V "4* V V 

V V V -i' -«- V V V V V 1' 

■” V 

V V 'f V V V V V 

r •v v v v v v v v -v 

V V V V V V T? T V V v A* 'r V V V V v v ’/• ^ -if 

2 29 5 

-r* 







A? 

2 i 9 6 

* 

DELETER 

-- ROUTINE 

TO 

PROCESS 

THE DELETE 

STATEMENT * 

2 29 7 

■ * 








2290 

'r 

t 

FILENAME 3 





2 29 9 

v 

DELETE 1 


] 

4 « « 



* 

23 0 0 

V 

[ 

LUN = 

FILENAME ] 




T 

23 01 

v» 







* 


v *r 

v v ^ v v r v 

v '?■ v v -i* r 'r 

r v'r v v -V* V v v r 

V V V 

V V V V V V V 

t r v t v v v nr 



0 3476 

14103500 

P 

• 2304 . 

DELETER 

ENI 

r + 2 j X1 


0 3477 

01001413 

P 

2305 


UJP 

PACKER 

GET NEXT ITEM 

0 3500 

01000424 

P 

2306 


UJP 

MG 

FOUND END OF LINE 

0 3501 

01003516 

P 

230 7 


UJP 

DL 06 

FOUND LUN 

03502 

14303504 

P 

2 303 


ENI 

9 +2i X3 


0 35 03 

01003004 

P 

2309 


UJP 

EGSYS 

EQUIP THE SYSTEM UNIT 

0 35 04 

02503173 

P 

2 310 


IJO 

EQERRjXl 

EQUIP ERRORS 

03505 

53020052 


. 2 311 


TMA 

Ti 

RESTORE THE FILENAME 

INDICATE WHICH UNIT TO USE 

0 35 06 

14303406 

X 

2312 


ENI 

SYSLUN,X3 

0350 7 

14100000 


2313 

QL0 2 

ENI 

DELETE,XI 


0 3510 

71300000 


2314 


XREQ 

XREQ*X3 

ATTEMPT THE DELETE 

0 3511 

02502153 

P 

2315 


IJO 

DLERRS,XI 

JUMP If ERRORS 

0 35i 2 

04303506 

X 

2316 


ISE 

S Y S L U N t X 3 

SKIP IF SYSTEM UNIT INVOLVED 

0 3513 

01003476 

p 

2 317 


UJP 

DELETER 

LOOP SACK FOR MORE 

0 3514 

14303476 

p 

2 318 


ENI 

DELETER,X3 

RETURN ADDRESS 

0 3515 

01003027 

P : 

2 319 


UJP 

UNEQSYS 

UNEQUIP THE SYSTEM UNIT 


03516 

05400144 


2321 

OL 0 o 

A S G j S 

MAXLUN 


0 3517 

05400000 


2322 


A SG ? S 

0 


03520 

01002175 

P 

2323 


UJP 

£04 

ILLEGAL LUN 

03521 

53700000 


2324 


TAX 

X3 

SAVE LUN IN X3 

0 352 2 

14103524 

P 

2325 


ENI 

* + 2»XI 

RETURN 

0 3523 

01001413 

P 

2326 


UJP 

PACKER 

PACK THE FILE NAME 

0 3524 

01002177 

P 

2327 


UJP 

£15 

END OF LINE NOT LEGAL HERE 

0 35 25 

01002177 

P 

2323 


UJP 

E15 

LUN NOT LEGAL ALSO 

0 3526 

0100350? 

P 

2329 


UJP 

DLQ2 

ATTEMPT THE DELETE 


03527 

20103531 

P 

2331 

OLERX 

LD A 

OLERRCD-* XI 

GET THE ERROR CODE 

0 3530 

01001264 

■ p 

233 2 


UJP 

ERRORINA 

PRINT THE ERROR 


0 3 5 31 

P 

23 34 

OLERRCD 

EQU 

& 

1—LUN XX UNDEFINED 

03531 

00011355 


2335 


ERROR 

Mi 5 

2 —FILE IS PROTECTED 

0 35 32 

00011543 


2336 


ERROR 

1*121 

3--LUN IS NOT SAVED 

0 3533 

0 U 011565 


2 33? 


ERROR 

M2 2 

4--NAME IN AG DOES NOT AGREE WITH 

0 3534 

00011613 


2338 


ERROR 

M2 3 

5—NOT ENOUGH SCRATCH FILE SPACE 







d- 

0 

0 



O 


o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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2341 
2 342 
234 3 
2344 
2 345 
2 346 
2347 
2 343 
2349 
2 35 U 
2 351 
2352 


GNILHOOh 

v v -v v v v v v v v *4* v v v v v v v '/• nr -r v v -v- v v -4* v -4' v v v v v r v v t v v v v v r ^ v v v v -v- v v v v v v -r v v r v -r v v v v -r - 

PARAMOUT -- ROUTINE TO OUTPUT THE PARAMETER STRING 

A - CHANGED 
Q - CHANGED 
XI- RETURN ADDRESS 
X2- OELEMITING CHARACTER 
X3- RESTORED 
Tl- RESTORED 
T2- RESTORED 

T3- OELEMITING CHARACTER 


¥ 


if 


Ar -A nr r- nr nr nr nr nr nr v -v v if v v t -f v nr r v -f v v -v -f -r v v A' Af- v v v v A 1 r v v v v v v v r r nr v v 'f v v v -v if V r Af -r V "f •? -v Y v lf V •V' Y 


(D 

CP 

(1 

O 

o 


0 3535 

23413510 

P 

02722 0 

2355 

PARAMOUT 

LQCH 

aCDASCII,X2 

CONVERT DELIMETER TO ASCII 

Q 3!? 3 6 

130 0 00 30 



2 35 6 


3HAQ 

24 


U 35 37 

04200037 



2357 


I St 

37B ,X2 

SPECIAL TEST FOR END OF LINE 

03540 

1561)0056 



2 35 8 


INA 

2406-2158+338 

ADD 2408 IF NOT END-QF-LINE 

0 3541 

15600162 



2359 


INA 

2158-336 

CONVERT ENO-OF-LINE TO 215B 

0 35 42 

53420054 



2360 


TAM 

: T3 : 

SAVE DELIMETER IN T3 

03543 

53020044 



2361 


IMA 

' 10 


0 3544 

17600023 



2 38 2 


ANA 

SYSMASK+All KBIT 

GET TYPE OF I/O DEVICE 

03545 

03003577 

P 


2 36 3 


A Z J j E Q 

pm a 8 

EXIT IF TTY 

0 3546 

47100003 

c 


2 36 4 


STI 

B1SAVE,X± 

SAVE XI ... 

0 3547 

53020052 



2 365 


TMA 

: 11:: 

AND SAVE Tl 

0 3550 

4 0 0 0 0 Q 0 4 

c 


2 366 


STA 

T1SAVE 


0 3 591 

14100016 



236 7 


EMI 

PURGE,XI 


0 35 5 2 

71000000 



2 36 8 


XREQ 

XREG 

REMOVE EXISTING PARAMETER STRING 

0 3 5 5 3 

14100116 



2369 


ENI 

78, XI 

LIMIT TO PARAMETER STRING LENGTH 

0 35 54 

04200037 



2 37 Q 


.1SE 

37B,X2 

SKIP IF DELIMETER WAS ENO-OF-LINE 

03555 

01003566 

p 


2371 


UJP 

PH 0 6 

OUTPUT PARAMETER STRING 

0 3556 

01003574 

p 


2372 

2 3 ? 3 

2 374 


...U.JP. 

;,.P,HQ7 v .. 

NO PARAMETER STRING 

0 3557 

02503561 

p 


2375 

PM 0 4 

if-JD"'/' 

- :;^+2:,xi'.i:-'"' 

JUMP IF MORE CHARACTERS LEGAL 

0 356 0 

010 0 22 0-5 

p 


2 376 


-UUP: 

./Lll 

LINE TOO LONG 

03561 

53600000 



2 3 7 7 


T AI 

X2 

BCD CHARACTER TO X2 

0 356 2 

23413510 

p 

02722 0 

2 37 8 


LQCH 

BCOASCII,X2 

GET ASCII CODE 

0 356 3 

13 0 0 00 31) 



2 379 


SHAQ 

24 


0 3564 

156 0 a 24 0 



2 33 0 


INA 

.24.0,0 

CONVERT TO ASCII CHARACTER 

0 3565 

77540000 



2 331 


AC I 


PUT INTO THE PARAMETER STRING 

0 35 66 

14 2 0 35 7 0 

p 


238 2 


ENI 

*+2,X2 

RETURN ADDRESS 

0 3567 

01001517 

p 


2383 


UJP 

GETGHAR 7 

GET THE NEXT CHARACTER 

0 3570 

04600037 



2384 


ASE.7 , - 

■ ■' 37ET 

SKIP IF ENO-OF-LINE 

03571 

0100355-7 

p 


2 385 


UJP 

PM84 

CONVERT IT TO ASCII 

U 3 5 7 2 

14600215 



2386 


ENA 

2156 

ENTER ASCII END-OF-LINE CODE 

0 3573 

77540000 



2 38 7 


AGI 



0 3574 

2000QQ04 

c 


238,8 

PtW 

LOA 

TiSAVE 

RESTORE Tl 

0 3575 

53420052 



23 b 9 


TAM 

Ti 


0 3576 

54100003 

c 


2330 


LDI 

BISAVE,XI 

RESTORE XI 

0 3577 

53230054 



2391 

PM 08 

TMI 

T 3 , X 2 ■ 

DELIMITING CHARACTER TO X2 ALSO 

0 36 00 

011000Q0 



2 392 


UJP 

0, XI 

RETURN 


o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 


o 
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2394 
2396 
239? 
2 39 0 
2 399 

2400 

2401 


- v v v V v v v v v *»' v v v v v v 'r v v v v r v v v v ■¥• v Ar '»* v v v v vv v v v -v v '/> v v v -v - v '»* t! 

OVLOADR -- ROUTINE TO PROCESS THE QVLGAD STATEMENT 
( LUN ) 

OVLOAD {, 3 [ PARAMETER STRING J 

{ FILENAME 5 


v v v y v v v -v v v -v -r v v t v ^ v v 

* 
* 
¥ 


-v -v -ar 't ~e - 


“ -r -vr v "«r nf -v ■v -nr nr -<r -v -v* -5r “Sr nr ^ ■v- -nr v -v- nr nr ^ ^5r Of Af* v* *v *ir *«r* *¥• ^ «<r nr Ar *??• -nr "5* nr -v -v* ■¥• -v -v -^r "3r -v- 3r 


0 

0 

O 


0 36 01 

14103603 

P 

2404 

OVLOADR 

ENI 

*+2,Xi 


03602 

0100141-3 

P 

2405 


UJP 

PACKER 


0 3 6 0 3 

01002177 

P 

2406 


UJP 

E15 

END-OF-LINE NOT LEGAL 

0 36 04 

01003611 

P 

2407 


UJP 

OVL10 

FOUND LUN 

0 36 05 

14303607 

P 

• 24 0 8 


ENI 

*+2 t X3 

FOUND- BCD FILENAME 

0 36 06 

01003004 

P 

2409 


UJP 

EQSYS 

TRY TO EQUIP THE FILE 

0 3 6 0 7 

02503173 

P 

241 U. 


IJD 

EQERR ■> XI 

EQUIP ERROR 

0 3 6 i Q 

14603512 

X 

2411 


ENA 

SYSLUN 

INDICATE THE SYSTEM UNIT 

0 3 611 

53700000 


2412 

0 V L10 

TAI 

X3 . 

LUN TO X3 

0 3612 

14703610 

X 

2413 


ENQ 

SYSLUN 


0 3bl3 

05400144 


2 414 


ASG » S 

HAXLUN 


0 3614 

05400000 


2415 


A S 6 9 S 

0 


0 3 615 

03502175 

p 

2416 


AQJ*NE 

E 04 

ILLEGAL LUN 

0 3616 

14103620 

p 

2417 


ENI 

++2.X1 

RETURN ADDRESS 

0 361? 

0100 35 35 

p 

241 d 


' UJP . 

P.ARAMOUT 

OUTPUT THE PARAMETER STRING 

0 3620 

14700000 


2419 

OVL02 

ENQ 

STATUS 


0 3621 

77664000 


2 4.2 a 


VFO 

A15/AIS,09/000 

CLEAR ANY C NTLMODE REQUESTS 

0 3622 

72300000 


2421 


CM-TL 

0 ,X3 

INSURE THE FILE IS EQUIPPED 

0 3623 

03002155 

p 

2422 


AZJ,EQ 

E 0 2 

LUN UNDEFINED 

03624 

04600001 


2423 


ASt 

FILE 

CHECK FOR HARDWARE TYPE OF FILE 

0 3625 

01003764 

p 

2424 


UJP 

OVLERR 

ILLEGAL HARDWARE TYPE 

03626 

12000006 


2425 


SHA 

23-AUDIT 


0 3627 

03300223 

p 

2426 


AZJ.LT 

. £72 

ABNORMAL I/G CONDITION 

0 3 6 3 0 

14700004 


2427 


ENQ 

REHINO 


03631 

7.2 30 00 0 0 


2428 


CNTL 

0 * X 3 

REWIND THE FILE 

0 3632 

12000002 


2429 


SHA 

2.3-E008.IT 

CHECK FOR END 3F DATA 

0 36 3 3 

03303764 

p 

2 43 0 


AZJiLT 

OVLERR 

ERROR If AT END OF DATA 

036 34 

14100000 


. 2431 


ENI 

Q •* X1 

FLAG TQ INDICATE CORE NOT ZEROED 

0 36 35 

14601001 

G 

243 2 

OVL07 

ENA 

OVL8UF 

ADDRESS OF HEADER RECORD 

0 36 36 

14700004 


2433 


ENQ 

4 

LENGTH OF HEADER 

03637 

74300000 

' 

2434 


READ 

0, X3 

READ THE HEADER .. 

03640 

12000006 


2 435 


. SHA 

23-AUDIT 


0 3641 

03300223 

P 

2436 


AZJ>LT 

PJ9 

ABNORMAL I/O CONDITION 

0 3642 

12000027 


2437 


SHA 

24+ A U BI. T - B INBIT 


0 3643 

03203764 

P 

. . 2.438 . . . 


AZ.J *&h 

OVLERR 

MUST BE BINARY 

03644 

04700000 


2439 


■QSE 

0 


0 3645 

01003764 

P 

244 0 


U J P 

OVLERR 

MUST 3E CORRECT LENGTH 

0 3646 

25001001 

G 

2441 


LDAQ 

OVLBUF 

GET STARTING ADDRESS 

0 3 64 7 

37002653 

P 

2442 


■ LPA 

PGMASK . 


0 365 0 

13000030 


244 3 


SHAQ 

24- 

AND LENGTH 

03651 

37002653 

P 

2 44 4 


. LPAv. 

PCMASK 


03652 

53040000 


2445 


AQA 


ENDING ADDRESS IN A 

0 3653 

. 52002673 

P 

2 448 


CPR . 

CHHIMEM 

CHECK FOR LOADING ON TOP 

0 3654 

52002672 

P 

244 7 


GPR 

CMLOHHEM 

OF CONTROL MODE 

0 3655 

03503660 

P 

2448 


AQJ,NE 

* + 3 

LENGTH MUST NOT BE ZERO 

Q 3656 

01003764 

P 

2449 


UJP 

OVLERR 


0 365? 

01003764 

p 

2450 


UJP 

OVLERR 


0 3 66 0 

12077757 


2451 


SHA 

-16 

CHECK FOR ENDING ADDRESS .*. 

0 3661 

03103764 

p 

2452 


A 2 J ,NE 

OVLERR 

.-..TOO LARGE 

0 3662 

25001003 

■ n ■■. 

■■■ u . 

2453 


LDAQ 

OVLBUF+2 

GET TRANSFER SYMBOLS 

0 3 6 b 3 

03303764 

p 

2 454 


AZJ,LT 

OVLERR 

NO PRIMARY TRANSFER SYMBOL . 

0 3664 

53020044 


2454*00i 


TMA 

IO 


0 3665 

17604000 


2454*002 


ANA 

. RUNCBIT 


0 3666 

03003676 

p 

2454+ 0 0 3 


AZJ » EG 

0 V L 0 9 

JUMP IF NOT RUN ONLY MODE 

0 3667 

47300000 

G 

2454+004 


STI 

ASAVE.X3 


0 3o7 0 

47200001 

C 

2454+005 


ST I 

QSAVE,X2 


0 36 71 

14203673 

P 

2454+006 


ENI 

*+2,X2 


0 3b 7 2 

01007547 

P 

2454+007 


UJP 

SMASH 

CLEAR RUN ONLY STATUS 

0 3673 

14177776 


2454+008 


ENI 

-1» XI 

SAY LOWER CORE WAS ZEROED 

0 36 7 4 

54200001 

c 

2454+009 


LOI 

QSAVE,X2 


0 3675 

54300000 

G 

2454+010 


LDI 

ASAVE,X3 


03676 

25001003 

o 

2454+011 

0 V L 0 9 

LDAQ 

OVLBUF+2 


0 3677 

53420041 


2 455 


TAM 

PC 

TRANSFER ADDRESS TO PC 

0 3700 

53410051 


2 456 . 


TQM 

Q 

SECONDARY TRANSFER ADDRESS TO Q 

0 3701 

13077717 


2 4 5 7 


SHAQ 

-4 8 

ENAQtS 0 -x- ' 

0 3702 

53-42 0 043 


245 6 


T AM 

A 

ZERO USERFS A REGISTER 

Do 70 3 

55700000 


2 45 9 


AQE 


ZERO THE USERS E REGISTER 


O 

O 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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CNTLMODE 


5 3 


0 3 71)4 
UJ/U5 

zfidoidcSi 

C 


2^9 0 

2 4ol 


TAM 

LDA 

a 3 7 0 6 

12000010 



2462 


SHA 

Q 37 07 

03303722 

P 


2 463 


AZJ,LT 

J J 7 10 

17600176 



2464 


ANA 

03711 

03103722 

P 


245 5 


A Z J , N E 

0 3712 

02503722 

P 


2466 


IJD 

03713 

5363 0 0 53 



246 7 


TIM 

03714 

14200017 



2460 


ENI 

03715 

14100007 



2469 


ENI 

0 3716 

71200000 



2 47 0 


XREQ 

03717 

02603715 

P 


2471 


IJQ 

03720 

14177776 



247 2 


ENI 

0 3721 

53230053 



2473 


TMI 

03722 

20001002 

c 


2474 

0VL14 

LDA 

03723 

37 0 0 26 5 3 

p 


2475 


LPA 

0 3724 

13000030 



2476 


SHAU 

LDA 

0 3725 

20 0 0 1G 01 

c 


2477 


0 3726 

37 0 026 53 

p 


2478 


LPA 

03727 

36002652 

P 


2479 


SCA 

0 3 730 

743.0 00 GO 



2480 


READ 

0 37 31 

12000005 



2431 


SHA 

03732 

03203764 

p 


2482 


AZJ j GE 

03733 

12000031 



24S 3 


SHA 

03734 

03300223 

p 


2434 


AZJ j LT 

03735 

04700000 



2485 


QSE 

03736 

010037&4 

p 


2486 


UJP 

0373 7 

11200000 


40000 0 

248 7 


ECHA 

0 3740 

37001001 

c 


2488 


LPA 

03741 

03103635 

p 


248 9 


AZJ »N£ 

0 37 42 

14677777 



2490 


ENA 

0 3743 

53420046 



2491 


TAM 

0 3 7 4 4 

53 02 0 052. 



24911-00 1 


TMA 

0 3745 

12000006 



2491+002 


SHA 

0 37*6 

17600077 



2491+003 


AHA 

0 3 7 4 7 

046000.53 



2491+0^04 


A SE 

0 375 0 

01003754 

p 


2491+Q05 


UJP 

0 3 751 

53020044 



2491+006 


THA 

03752 

16604000 



249.1+ 00 7 


XO ft 

0 37 53 

53420044 



2491+003 


TAM 


03754 

p 


2491+009 

0 ¥420 

EQU 

0 375 4 

14103757 

p 


2492 


ENI 

03755 

05240000 



2493 


ISG 

0 3 756 

01001234 

p 


2494 


UJP 

0 3 757 

53020054 



2495 


TMA 

0 3 760" 

53420047 



2496 


TAM 

03761 

77664000 



249 7 


VFQ 

0 3762 

03100044 

p 


2498 


AZJ,HE 

0 376 3 

01003257 

p 


2499 


UJP 


03764 

05240000 

2531 

OVLERR 

'JL J ij 

03765 

01002201 P 

25 02 


UJP 

03766 

14111034 

2503 

E01 

. ERM 


IS 

OVL8UF 
23-15 
OV LI 4 
17 & B 
OV L14 
0VL14,XI 
T 2 , X 2 
178,X2. 

Z EROPAGE ,X.1 

XRE G ? X 2 

*-2,X2 

-1,X1 

T 2 j X 2 

OVLBUF+i 

PCMASK 

24 

OVL8UF 
PCMASK 
BIT 15 
Q,X3 

23-BJN8IT 

OVLERR 

24 + BINBIT—AUBIT 
E7 2 
0 

OVLERR 
2000008 
OVLSUF 
OVLQ7 
777778 
B3 
Ti 
6 

770 


CLEAR FAULTS, MASK ANDROS 
GET THE FIRST WORD ADDRESS 
GET UPPER CORE SIT 
DO NOT ZEROCORE IF UPPER CORE 
GET OVERLAY NUMBER WITHOUT CONTIN 
SKIP ZEROCORE IF NOT MAIN OVERLAY 
JUMP IF LOWER BANK ZEROED 
SAVE X2 

ZERO PAGES 178 TO 00B 
ZERO A PAGE 

LOOP BACK TO GET THE WHOLE BANK 
INDICATE LOWER BANK IS ZEROED 
RESTORE X2 
GET LENGTH 

LENGTH TO Q 

GET FWA AND LENGTH 

COMPLEMENT BANK BIT 
READ IN THE OVERLAY 

JUMP IF NOT BINARY RECORD 

ABNORMAL I/O CONDITION 

SKIP If RECORD CORRECT LENGTH 

CHECK FOR CONTINUATION 

JUMP IF CONTINUATION 

JUNK FOR 

USER*S INDEX 3 

GET FIRST PART OF FILENAME 



C3> 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




ASSEMBLER/O 


0 3 770 
0 3 7 71 
U 3 7 7 2 
0 3773 
03774 
0 3775 
0 37 76 
0 3777 
040U0 
ij 4 0 0 1 
0 4002 
04003 
0 4 0 0 4 
0 4 0 0 5 
0 40 06 
04007 
0 4010 
04011 
0 4 012 
0 4013 
0 4-014 
0 4015 
04016 
0 4 017 
0 4 0 2 0 
0 4 0 21 
0 4 022 


0 402 3 
U 4024 
04025 
0 40 26 
0 4027 
0 4030 
U4031 
04032 
0 4 0 3 3 
0 4034 
0 40 35 
0 4 0 36 
0 40 37 
0 4 0 4 0 
04 041 
0 4 0 4 2 
0 4 0 4 3 
0 40 44 
0 4 045 
0 4 0 4 6 
0 4 047 


0 4 0 5 0 
0 4 0 53 
0 40 54 
0 4 0 5 5 
0 40 56 
0 4 U 5 7 
0 4 060 
04061 
04 062 
04063 

0 4 0 6 4 

0 40 65 
0 4066 
0 4 067 
04070 
0 4 U 71 
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2506 
250 7 
2508 
25 0 9 
2 510 

2511 

2512 
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TIMER. — ROUTINE TO PROCESS THE TIME COMMAND. 
MF0LKSR — ROUTINE TO PROCESS THE MF8LKS COMMAND. 

TIME [= NUMBER i 
MFBLKS [= NUMBER 3 


* -Y* -r 


-x yt -v- *sr -v* 


v y "<r -»*• 


* Y V Y Y Y Y Y Y Y Y Y * 


,* Y Y Y Y 


Y Y v Y T V v Y V Y V Y Y 

* 

- * 

* 

Y Y Y Y ^ ^ Y ^ if ‘Sr Y ■¥' 


0 

G 

G 

O 


53200000 

2 515 

TIMER 

TIfl 

X2 

14203773 P 

2516 


EN1 

* + 2 , X 2 

14700060 

251 7 


ENQ 

H7 7 

03401517 P 

2518 


AQJ,EG 

GETCHAR 

b b b o o o o u 

2519 


TAI 

X2 

534300b4 

2520 


TIM 

Ids 0 

04600020 

2521 


AS£ 

H/-+7 

01004006 P 

2522 


UJP 

TIMEOi 

14100012 

2523. 


EMI 

TIMEREQjXl 

71000000 

2524 


XREQ 

XREQ 

15601130 

2 525 


IN A 

600 

13077/47 

2526 


SHAG 

-24 

b 10 0 2 6 4 5 P 

252 7 


OVA 

D1O03 

53420054 

2528 


I Ail 

T 3 

14104010 P 

2 h 2 9 

II ME 01 

ENI 

* + 2, XI 

01001413 P 

2530 


UJP 

PACKER ' 

01004050 P 

■ 2531 


UJP 

TIME 02 

04200037 

25-3 2 


ISE. 

3 7 B , X 2 

01002177 P 

2 5 6 3 


UJP 

E15 

53010054 

253 4 


TNG 

T 3 

530400Q0 

2535 


AQA 


14720304 

2535 


ENQ 

8388 

03602177 P 

25 3 7 


AQJ »6E 

E15 

14100011 

2538 


ENI 

TIMESET,XI 

71000000 

2539 

XRET 

XREQ 

XREQ 

77&64000 

2540 


VFD 

A15/AIS,09/000 

01000424 P 

2541 


UJP 

HC 

53200000 

2 543 

HFBLK SR 

TXA 

X-2 

14204026 P 

2544 


EMI 

**Z»X2 

14700060 

2545 


E N Q. 

H # t 

03401517 P 

2546. 


AQJ,EQ 

GETCHAR 

5360 0000- - 

2547 


TAI 

X2 

53430054 

2548 


TIM 

13, 0 

046 0 0 0 2 0 . ■ 

2549 


AS E 

H*+* 

01004037 P 

2550 


UJP 

■ MFBLKOi 

14100014 

£5-61 


ENI 

KFBLKREQ,XI 

71 0 0 0 0 0 [1 

‘155?. 


XREQ 

XREQ 

15700001 

255 3. 


. .INQ 

. ■ 1 - 

53410054 

2554 


TQM 

T3 

14104041 P 

2555 

MFBLKOi 

ENI 

*+2 i XI 

01-001413 P 

255.6 


UJP 

PACKER 

01004074 P 

2 5 5 J: 


U JP 

MF802 

0420003/ 

2558 


ise : 

37B,X2 

01002177 P 

2 55 9 


UJP 

£15 

53010054 

256 0 


TMQ 

13 

53040000 

2561 


AQA 


14100013 

2582 


ENI 

MF8LKSET,XI 

01004020 P 

2 56 3 


UJP 

, XRET 

14111715 

2565 

TIME 02 

OUT 

M 27 

14100012 

2566 


ENI 

T IMEREQ ,X1 

71000000 

2567 


XREQ 

XREQ 

15600062 

2568 


INA 

50 

1307774/ 

2569 


SHAQ 

'/' : :~..24i-j 

51002645 P 

2570 


OVA 

01 0 Q 0 

53410063 

2571 


TQM 

T 2 

14104063 P 

2572 


ENI 

*+2,Xl 

01001357 P 

2573 


UJP 

DECOUT 

14b U 0 0 3 3 

2 574 


ENA 

H#, t 

14304066 P 

2575 


ENI 

* + 2 ,X3 

01001031 P 

2576 


UJP 

OUTCHAR 

53020053 

2577 


TM A 

T2 

13077747 

2578 


SHAQ 

-24 

61002644 P 

2 5 79 


OVA 

010 0 

14111722 

2530 . . 


EC H I 

H 2 8 -1, X1 


GET THE DELIMETER 
RETURN ADDRESS 

SCAN PAST BLANKS 

RESTORE THE DELIMETER 

ZERO CURRENT TIME 

SKIP IF INCREMENTING TIME 

GET CURRENT TIME USED 

ROUND 

COMPUTE SECONDS 


EXAMINE NEXT ITEM 
END OF LINE, PRINT OUT TIME 
SKIP IF LUN, END OF LINE 
BCD SYMBOL, PARAMETER ERROR 
CURRENT NUMBER OF SECOND 

MAX TIME 

JUMP IF TOO LARGE 
SET THE TIME LIMIT 

CLEAR PENDING REQUESTS 


GET DELIMETER 
RETURN'ADDRESS 

SCAN PAST BLANKS 
RESTORE THE DELIMETER 
ZERO T3 

SKIP IF INCREMENTING MFBLKS 
SET CURRENT FILEBLOCKS 


SAVE CFBLKS 

EXAMINE NEXT ITEM 

END OF LINE, PRINT OUT MFBLKS 

SKIP IF LUN, END OF LINE 

BCD SYMBOL, PARAMETER ERROR 

GET CFBLKS 

USE THE SUM 

SET THE MFBLKS LIMIT 


TIME 

GET THE TIME USED 

ROUND TO TENTH OF A SECOND 

COMPUTE SECONDS 
SAVE MS 
RETURN 

PRINT SECONDS VALUE 


PRINT A PERIOD 
GET MILLISECONDS 
IN AQ 

GET TENTHS 
t SECONDS t 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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MODE 



0 4 0 7 2 

U 4 U 7 3 

14204103 
OlO01270 

P 

P 

253 i 
2532 


ENI 

UJP 

nilliiii 

Plf N^TIEi3?B» b i SECONDS X 

04074 

14111734 


2583 

MFQ02 

OUT 

M2 9 

MFBLKS 

0 40 77 

14100014 


2584 


ENI 

MF8LKREG,XI 

GET NUMBER OF FILE BLOCKS USED 

0 410 0 

7.10 0 00 0 0 


2 58 5 


XREQ 

XREQ 


0 4101 

14104103 

P 

258 6 


ENI 

*+2,Xl 

RETURN 

04102 

010U1357 

P 

2587 


UJP 

DECOUT 

PRINT MFBLKS VALUE 

0 410 3 

14111760 


2588 

MFB03 

OUT 

M3 0 

/MFBLKS/ 

04106 

14100027 


2589 


ENI 

M A X F 8 R £ Q > X1 

MAX FB REQUEST CODE 

0 4107 

71UU0U00 


2590 


XREQ 

XREQ 

00 THE REQUEST 

04110 

13000030 


2 591 


SR AQ 

24 

SAVE A 

04111 

53410053 


259 2 


TQH 

T 2 

SAVE THE MAX FB LIMIT 

0 4112 

14104114 

P 

2593 


ENI 

*■ + 2 » X1 ' 

RETURN ADDRESS 

04113 

01001367 

P 

2594 


UJP 

DECOUT 

OUTPUT THE NUMBER 

0 4114 

14111744 


2595 


our 

M29 X 

XMFBLKLIMX 

04ii7 

53020053 


2596 

M F 8 0 4 

TMA 

T 2 

GET CFBLKS 

04120 

14104164 

P 

2 59 7 

MF3Q6 

ENI 

LINEEND j X'l 

RETURN ADDRESS 

0 4121 

01001357 

P 

2598 


UJP 

DECOUT 

PRINT CFBLKS VALUE 


0 ) 

Qj 

Q 

Q 

Q 

O 

o 

o 

o 

o 

o 


o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


o 
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3 
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2601 






2 60 2 

* SFBLKSR ~ 

O 




2 6 0 3 





2 6 0 4 
2606 

3 S F B L K S 

■ V. 

o 




2 60? 


04122 

04200037 


. 2 8 0 8 

SFBLKSR ISE 

04123 

01002177 

P 

2605 

UJP 


0 4124 

14111772 


26 L0 

OUT 


04127 

14100015 


26:11 

EMI 

o 

0 413 0 

71000000 


2612 

XREQ 

0 4131 

53410053 


2613 

TQM 


0 413 2 

14104134 

P 

2614 

ENI 


04133 

01001357 

P 

2615 

UJP 

o 

0 413 4 

14112002 


2 616 

OUT 

0 4137 

53020053 


261.7 

IMA 


04140 

01004117 

P 

2613 

UJP .......... 

o 




2621 

-V'/T* =y. -•*£ <1* TT TT 3?* T?* ."T’ -*• -'V “3f\-*ir 





262 2 

- TRAFF1CR 





2623 

* . . 

o 




2824 

* TRAFFIC 





2 6 2 5' 







■>£ if if ^ if ^ $$■ 4- & & v & & & & 





2 82,7 ■ ■ 


o 

0 4141 

04200037 


2 62 8 

TRAFFICS ISE 


0 414 2 

01002177 

P 

2 to 2 9 : 

U J P 


0 4143 

141120.13 


2630 

OUT 


0 414 6 

63020035 


26 51 

IMA 

o 

0 4147 

14104151 

a 

2 83 2 

ENI 


0 415 0 

01001357 

p 

263 3 

UJP 


0 4151 

14 IQ4153 

p 

26.34 . 

EMI 


0 415 2 

01001141 

p 

2635 

UJP 

o 


0 4153' 

p 

2 8 3 6 

LOSCHEK £QU 


04153 
0 4154 

. 5-3020026 


■263.7 

IMA 


03200424 

P ; 

26:38". 

A.2 J i GE 


0 4155 

14104625 

P 

2839 

ENI 

O 

04156 

01001234 

p 

2640 

'264.1 

UJP 

if if Sf Sf 3f 3f if %f. if 





264.3 ■ ' 

’ 4 ' .. V 

o 




2,644 

* CGR — RO 




2 6 4 5 

.4** 





■ :2'6 48 

.* GO f COMMENTS 3 • 

o 




k b % if 

#■ *$>•&■& W $$ ‘‘f & 





2649 



0 4157 

5320 001 } a 


2850 

OCR 'FI A 


l 04160 

14700037 


■ -2'651' 

ENa : 

o 

0 4161 

0 34 0 0 4 ci. 4 

p 

' . 2.6S2- 

A J w 9 b Q 

0 416 2 

14204160 

p 

2653 

ENI 


0 416 3 

0100151? 

p 

2654. 

■ 2 655 

UJP . 

o 

0 416 4 

1410U424 

p 

2656 

' LINEEND ENI 

0 4165 

010Q1141 

p 

2657 

UJ.P 

o 






o 






o 

; ■ 
i 





o 






o 

- 






O 









o 








0) 
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CD 




2660 

V V V V V V V V V V V V V V V Y Y 

Y Y Y V Y Y Y V Y V Y Y Y 





2661 

STATU SR 

— ROUTINE TO 





2662 



cn 




266 3 

* C LUN 

J 





2 664 

- STATUS t , 

] 





2665 

I FILENAME i .... 





2666 

v 


o 





Y V V V V Y Y Y V Y V V Y Y Y V Y Y 

Y V Y Y V Y V Y Y V Y ^ Y 

o 

04166 

14104170 

P 

2 669 

STATUSR ENI 

*+2,Xl 

0 4167 

01001413 

P 

2670 

UJP 

PACKER 

0 417 0 

01004173 

P 

2671 

UJP 

REGOUT 


04171 

01004426 

P 

2 67 2 

UJP 

SL0 2 

o 

3 417 2 

01004405 

P 

2673 

2 674 

UJP 

SF02 



0417 3 

P 

2674+001 

REGOIJT EQU 

V- 


0 417 3 

53130044 


2674+002 

TNI 

IO,XI . 


0 4174 

17104000 


2674+003 

ANI 

RUNOBIT,XI 

o 

04175 

02504371 

P 

2674+004 

IJD 

ST24 , XI 


0 4176 

14112030 


2 67 4+ 0 Q 5 

. OUT 

M3 4 


0 42 01 

53020041 


2676 . 

IMA 

. PC 


04202 

3 7 Q Q 2 653 

P 

2677 

LPA 

PCMASK 

o 

0 4203 

13000036 


2 67 6 

SHAQ 

24 + 6 


04204 

14200006 


2679' 

OCTOUT 

6 


i. . 



268 0 




0 4207 

14112036 


2681 

our 

: M3 5 1 

O 

04212 

53020040 


2 682 

TM A 

LJA 


0 4213 

37002653 

P 

2 DO 3 

LPA 

PCMASK 


04214 

13000036 


2684 

SHAQ 

■v"24 + 

o 

04215 

14200006 


2685 

2686 

OCTOUT 

8 

04220 

14112044 


2667 

OUT 

M36 


0 4223 

53010043 


2 63 8 

TMQ 

A 

o 

U 4 2 2 4 

14200010 


2639 

2690 

OCTOUT 

8 

0 4227 

14112050 


2 6 91 

OUT 

M37 


0 4232 

53010051 


2692 

TMQ 

Q 

o 

0 4233 

14200010 


2694 

2694 

OCTOUT 

a 

04236 

14112054 


2695 

OUT 

MSB 


0 4 241 

53010050' 


2696 

THQ 

81 

o 

0 4242 

12400011 


2 697 

SHQ 

9 

0 4 243 

14200005 


2698 

2 699 

OCTOUT 

5 


0 42 46 

14112063 


27 0 0 

OUT 

M3 9 

o 

04251 

53010047 


2701 

THQ 

32 

04252 

1240 GO11 


2 702 

SHQ 

9 ‘ . 

04253 

14200005 


2 7 03 

2704 

OCTOUT 

5 



04256 

14112072 


2 70 5 

OUT 

M49 

o 

0 4261 

53010046 


27 0 6 

TMQ 

83 


0 4262 

12400011 


2 70 7 

SHQ 

9 


04263 

14200005 


2.70 8 

27 0 9 

OCTOUT 

5 

o 

0 4266 

14112101 


2710 

OUT 

M41 


04271 

55200000 


2711 

EUA 



04272 

13000030 


2712 

SHAQ 

24 

o 

0 4273 

14200010 


2713 

2 714 

OCTOUT 

■ V: 8/4 

04276 

14112105 


2715 

our 

M42 


0 4301 

55100000 


2716 

ELQ 


o 

0 43 02 

14200010 


2717 

2718 

OCTOUT 

3 

04305 

53020042 


2719 

THA 

IS 


0 4 3 0 6 

17600004 


2720 

ANA 

48 


0 4 3 0 7 

031)04315 

P 

2721 

A Z J , £ Q 

ST 08 

o 

0 4310 

14112111 


2722 

OUT 

94 3 

04313 

14104315 

P 

2 72 3 

ENI 

ST 0 8,XI 


04314 

01001141 

P 

2724 

2725 

UJP 

OUTLINE 

o 

04315 

53010042 


2 7 26 

ST 03 TMQ 

IS 

0 4316 

12400011 


2727 

SHQ 

9 


0 4317 

27002660 

P 

2723 

LDL 

FAULTS 


0 432 0 

03004347 

P 

£729 

AZJ,EQ 

ST 2 0 

o 

0 43 21 

27002655 

P 

273 0 

LOL 

Q IT 18 

04322 

03004326 

P 

27 31 

AZJ,EQ 

STi 0 


0 4323 

14112117 


2732 

OUT 

M44 


o 


v v v v v v Ar v v v v v v-r v t v v v -<r ^ v -v- v v r '£• v v v ir -v- v -v* v v ^ v v ~£ 

if. 

PROCESS THE STATUS STATEMENT * * 

* 

* 

•v 

v v v v v v v -r ^ v v nr t r v -v v J r -r y y y v v v v -r v V -f -y r v ^ -r v v 


GET NEXT ITEM 

END OF LINE, PRINT REGISTERS 
LUN, PRINT STATUS 

CHECK SO AS NO TO PRINT 
REGISTER IF RUN ONLY MODE. 
JUMP IF RUN ONLY MODE 
*P t 
GET PC 

REMOVE ALL BUT THE PC 

PRINT 6 OCTAL DIGITS 

^L J A t 
GET THE LJA 
REMOVE EXTRA BITS 

PRINT 6 OCTAL DIGITS 

£ A t 

PRINT 8 OCTAL DIGITS 

m t 

PRINT 8 OCTAL DIGITS 
jEBi * 

PRINT 5 OCTAL DIGITS 
t B 2 . t 

PRINT 5 OCTAL DIGITS 

#B3 t 

PRINT 5 DIGITS 
t L L t 

PRINT 3 OCTAL DIGITS 
XEL t 

PRINT 3 OCTAL DIGITS 

GET ROS BIT 
JUMP IF NOT ROS 


CHECK FOR ANY FAULTS ON 
JUMP IF NO FAULTS 
CHECK AOV 
JUMF IF NO AGV 
t <AGV>/ 


CD 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

G 

O 

o 

o 

o 

o 

o 

o 

o 


o 
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2733 



0 4326 

27002656 

P 

2734 

s no 

L D L 


0 4327 

03004333 

P 

2 7 35 


AZJ,EG 


0 4330 

14112125 


2736 


OUT 

o 




2 7 37 



0 4333 

27002654 

P 

2738 

ST12 

LDL 


j 04334 

03004340 

P 

2739 


AZJ,EG 


04335 

14112133 


2 74 0 


OUT 

o 




2741 




0 4340 

27002657 

P 

2742 

ST 14 

LuL 


0 4341 

03004345 

P 

2743 


AZJiEQ 


04342 

14112141 


2 744 


OUT 

G 




2745 



0 4 345 

14104347 

P 

2 746 

ST 16 

ENI 


0 4346 

01001141 

P 

2 74 7 

n 7 t. q 


UJP 

O 

0 4 347 

53010042 


4L $ L r u 

2 749 

ST20 

TMQ 

0 4 350 

27002663 

P 

275 0 


LDL 


0 4351 

03004371 

P 

2751 


AZJiEQ 


04352 

14112147 


2752 


OUT 

o 

• 04355 

27002662 

P 

2753 


LDL 

0 4356 

03004362 

P 

2754 


AZJ,EG 


04357 

14112153 


2755 

<p 


OUT 

o 

0 4362 

27002661 

P 

On 4 w 

2 757 

ST 22 

LDL 


0 4 3 6 3 

0300436? 

P 

275 8 


AZJiEG 


0 4364 

14112165 


2759 


. OUT 


0 4367 

14104371 

P 

2 76 0 

ST23 

ENI 

o 

0 4370 

01001141 

P 

2761 


UJP 





276 2 




0 4371 

53020044 


2 76 3 

ST24 

THA 


0 43 72 

17601000 


2784 


ANA 

o 

0 4 373 

03100414 

P 

2765 


AZJ%HE 

0 43/4 

01000424 

P 

2766 


UJP 

o 








0 43 75 

53230054 


2768 

St 01 

THI 


0 43 76 

53020044 


2769 


IMA 

o 

04377 

176Q0023 


27 7 G 


ANA 

0 44 0 U 

03000424 

P 

2771 


A4J,EG 


0 4401 

14104403 

P 

27 7 Z 


ENI 


0 4402 

0:10 01413 

P 

2773 


UJP 

o 

U 4 4 03 

Q1000424 

P 

2774 


UJP 


04404 

01004426 

P 

2775 


UJP 



04405 

P 

. 2778 

Sf 02 

£QU 


0 44 05 

53020052 


2777 


THA 

o 

04406 

53420054 


2778 


TAM 


0 4 4 0 7 

14104411 

P 

277 9 


ENI 


04410 

01001376 

P 

. 2780 


UJP 


0 4411 

53020054 


2781 


T M A 

o 

04412 

5342 0 0 5 2 


2 782 


TAM 

04413 

14304415 

P 

2783 


ENI 


0 4414 

01003004 

P 

2 784 


UJP 


04415 

5 3 6 3 0 0 5 4 


2 73-6 


TIM 

o 

0 4416 

02504421 

P 

2 78 6 


I JO 


04417 

14 3 Q 3612 

X 

278 7 


ENI 


0 442 0 

01004444 

P 

2 78 8 


UJP 


0 4421 

20104470 

p 

2 78 9 


LOA 

o 

0 44 2 2 

53500000 


2 79 0 


T AI 

04423 

14600060 


2791 


ENA 


0 4424 

14204451 

p 

279 2 


ENI 


0 4 425 

01001270 

P 

2793 • 


UJP 

o 




2794 



04426 

05400157 


2794+001 

SL02 

A S b , S 


0 4427 

05400000 


2 79 6 


ASG ,S 


0 443 0 

01002175 

P 

2797 


UJP 

o 

0 4431 

5342 0 0 5 3 


279 3 


TAM 

0 4432 

53630054 


2799 


TIM 


04433 

14111067 


28 0 U 


OUT 


0 4436 

53020053 


280 1 


T M A 

o 

0 4437 

14104441 

P 

28 0 2 


ENI 

0 4440 

01001360 

P 

280 3 


UJP 


| 04441 

53330053 


2804 


I MI 


0 444 2 

14700000 


2 805 


ENG 

o 

1 04443 

72300000 


2 8 0 6 


CNTL 

04444 

.53420053 


2807 

SL 04 

TAM 


04445 

. 5 3 2 3 0 0 5 4 


2 8 0 8 


THI 


o 


BIT19 

3112 

M45 

BIT 17 
ST14 
M4 6 

BIT20 , 
S T16 
H 4 7 

ST2G,Xl 

OUTLINE 

IS 

IMBITS 

S T24 

1448 

81T22 

ST22 

M49 

BIT21 

ST23 

m o 

ST 24,XI 
OUTLINE 

10 

STAT8IT 

ABORT 

Mr 


CHECK OIV 
JUMP IF 00 OIV 
F < 01V > F 

CHECK EXP 
JUMP IF NO EXP 
F < E X P > F 

CHECK BCD 
JUMP IF NO BCD 
F <BCD>F 


CHECK INTERRUPT MASK 

FIM=F 

CHECK AOV/QIV 
F <AOV/DIV > 

CHECK EXP/BCD 
F *EXP/BGO>F 


IF A STATUS REQUEST, ABORT 


T 3 » X 2 
10 

SYSMASK+AUXBIT 

MG 

*+2,Xi 
PACKER ' 


RESTORE X2 
GET I/O BITS 
CHECK FOR F (HO" 
EXIT IT A TTY 

GET NEXT ITEM 

EOL 

LUN 


TTY) F 


fdof 


9 - + 2 t X 1 

SYMOUT 

T 3 
Ti 

* + 2 ) X3 
EQSYS 
T3, X2 
*+3,Xi 
SYSLUN, 
SL 04 
BHD TYPE 
XI 
BOB 

SL 05,X2 

MESSAGE 


GET FIRST HALF QF NAME 

AND SAVE SINCE SYMQUT €10381 

RETURN ADDRESS 

OUTPUT SYMBOL 

RESTORE Ti 

SO ME CAN EQUIP 

RETURN AOCREES FOR EQSYS 

EQUIP THE FILE IP POSSIBLE 

SAVE DELIMITING CHARACTER 

JUMP IF ERRORS 

X3 SO ME GAN GET SIZE ETC. 

GO PRINT STATUS 

+HHDTYPEL-1,XI GET MESSAGE POINTER 

POINT AT IT 
INITIAL BLANK 
RETURNAOORESS 

2 AND PRINT MESSAGE 


110 + 1 

o 

£04 
T 2 

T3» X2 
M 02 
T 2 

* + 2 , X l 
DT01 
T 2 , X 3 
STATUS 
0 , X 3 
T 2 

T 3,X2 


ILLEGAL LUN 
SAVE THE LUN 
SAVE THE DELIMITER 
LUN 

GET THE LUN 

PRINT VALUE OF LUN 
LUN TO X3 

GET STATUS 

SAVE THE STATUS 

GET DELIMITING CHARACTER 





G 
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3 

G 4 <4 4 b 

14604450 

P 

2 8 0 9 


ENA 

+ 2 

1)444 7 

01007023 

P 

2810 


UJP 

STATSI Z £ 


0 445 0 

5 3 6 3 0 0 5 4 


2 8 11 


TIM 

T 3 » X 2 



04451 

P 

2812 

3 L 05 

EQU 


O 

04451 

14104375 

t 

'2 813 


£ NI 

SL 01 5 X1 

0445 2 

01001141 

P 

2814 

2815 

2 816 


UJP 

OUTLINE 


o 

0 4453 

00012176 


2817 

HWOTYPE 

ERROR 

M 51-1 

0 4454 

40 U12210 


2818 


ERROR 

M 5 2 -1 j B 


0 4455 

60012215 


2 819 


ERROR 

M 5 3 -1 ? B » R 


0 4456 

60012222 


2820 


ERROR 

M54-1,B,R 

o 

i Oh457 

40012227 


2821 


ERROR 

M 5 5 -1» B 


04460 

0 0 012234 


2822 


ERROR 

H56-1 


0 4461 

00012241 

''■l 

2623 


ERROR 

MS7-1 


0 4462 

60012246 


2824 


ERROR 

M58-1,B,R 

o 

0 4 46) 3 

00012253 


2825 


ERROR 

M59-1 

0 4464 

00012260 


2826 


ERROR 

M60-1 


0 4465 

40012265 


282 7 


ERROR 

H 61 ~ 1 f B 


0 4466 

60012272 


2 82 8 


ERROR 

M62-1» 3 »R 

o 

0 4467 

00012304 


2829 


ERROR 

M 6 4 -1 

0 4 47 0 

60012277 


2830 


ERROR 

M&3-1,8,R 



0 0 016 


2831 

HWOTYPEL 

EQU 

HWDTYPE 


0 4471 

00011161 


2832 


ERROR 

M0 8-1 

o 

04472 

00012311 


2833 

HWOUNK 

ERROR 

M65-1 


04473 

00011216 


2 834 


ERROR 

M08-1 


0 4474 

00011230 


2 835 


ERROR 

M 09-1 


0 4475 

00011256 


2836 


ERROR 

M10 -1 


o 


o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


o 

O 


RETURN ADDRESS 

PRINT STATUS AND SIZE 

RESAVE DELIMITING CHARACTER 

RETURN 

PRINT THE LINE 


0 —UNDEFINED 

1— FILE (BLOCK ORIENTED) 

2— LP (BLOCK AND RECORD ORIENT 

3— PUN (DITTO) 

4— CR (BLOCK ORIENTED) 

5— MT 

6— TTY 

7— PLOT (SLOCK AND RECORD ORIEN 

8— NULL 
9 —TV 

10— RAF (SLOCK ORIENTED) 

11— TASK (BLOCK AND RECORD ORIENT 

1 ? - _ M C p 

13—FTP (DITTO) 

EQUIP ERROR 1-NAME NOT FOUND 

14+-UNK 

EQUIP ERROR 3 

EQUIP ERROR 4 

EQUIP ERROR 5-PARAMETER ERROR 


CD. 

Q 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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V 

MAGNETIC TAPE EQUIP * 

■¥ 

■V T Y Y Y T Y '«* V V Y Y T V ^ Y Y Y Y Y Y V Y Y Y Y Y V Y Y *«* V Y Y ^ Y ^ V Y Y 

SET A FLAG TO SAY /MSFX 
GET THE TAPE NUMBER 
GET NEXT ITEM 
FOUND END OF LINE 
FOUND TAPE NUMBER 
FOUND BCD TAPE NUMBER 
SAVE TAPE NUMBER IN T3 
CHECK FOR MT OR MSF 
JUMP IF MSF (NO DENSITY) 

GET NEXT ITEM 
FOUND END OF LINE 
FOUND NUMBER 
CHECK FOR thl t 
JUMP IF MISSING thlt 

GET NEXT ITEM 

FOUND END OF LINE 

FOUND DENSITY 

FOUND BCD DENSITY 

CHECK DENSITY FOR 200, 556, 809 

CONVERT TO 0, 1, 2 
ILLEGAL DENSITY 
SAVE DENSITY 

■ GET THE SYSTEM CODE 
JUMP If TTY 

REMOVE THE PARAMETER STRING 
GET LAST CHARACTER 


JUMP IF END OF MESSAGE 


SAVE CHARACTER FOR LATER 
RETURN ADDRESS 
SKIP IF TOO LONG 

OTHERWISE GET ANOTHER CHARACTER 
PRINT /LINE TOO LONG/ ' 

PICK UP NEXT CHARACTER 
PUT IT INTO THE MESSAGE . 

JUMP IF MORE MESSAGE 
GET TAPE NUMBER 
GET tm $ 

GET *HT*/*MSF* FLAG 
SKIP IF MT 

H2M5F t CONVERT IT TO MSF 
GET DENSITY 


ATTEMPT TO EQUIP THE TAPE 
JUMP IF ERRORS 
DONE IF NO ERRORS 


G) 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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2 8 56 

V 





2 899 

v 

LUGCFFR 




29 0 0 

-v 

V V V V V V T V -1- V 

Y V V V Y Y Y 

0 4563 

b 3G20 u44 


2 90 3 

OP TERM 

T M A 

0 4564 

17o 0 0 Q 0 3 


2904 


ANA 

0 45.65 

b 34 2 0u44 


2905 


TAM 

0 4 5 66 

14127740 


2 90 6 


OUT 

0 4571 

14104573 

P 

29 0 7 


ENI 

0 4572 

01001141 

P 

29 0 8 


UJP 

0 4573 

53020044 


2910 

LOGO F F R 

TMA 

04574 

17600020 


2911 


ANA 

0 4575 

03103766 

P 

2912 


AZJ,NE 

0 4576 

.146 0 4600- 

P 

2. 0. X o. 


ENA 

0 4577 

01004672 

P 

2914 


UJP 

0 4600 

53020044 


2915 


TMA 

04601 

17600003 


2916 


ANA 

0 4602 

04600002 


2917 


ASE 

G 4 6 0 3 

01004625 

P 

2918 


UJP 

04604 

01005230 

P 

2919 


UJP 

04605 

53020044 


2921 

JQ3R 

TMA 

0 46 06 

17600023 


2922 


ANA 

04607 

04600002 


2923 


Ase 

0 4610 

01003766 

P 

29 24 


UJP 

04611 

14600001 


2925 


ENA 

0 4612 

40000006 

C 

2926 


S T A 

04613 

53020044 


292 7 


TMA 

0 4614 

17477737 


2928 


ANA * S 

04615 

156.00040 


2929 


XOA 

0 4616 

53420044 


2 93 0 


TAM 

0 4617 

14605233 

P 

.2931, 


ENA 

0.462 0 

01004672 

P 

2932 


UJP 

0 4621 

53020026 


2934 

LOGVANSH 

TMA 

04622 

0 3 3 0 462 5 

P 

2935 


AZJ»LT 

04623 

14604625 

P 

2936 


ENA 

04624 

01004672 

P 

2937 


UJP 

0 4625 

14100004 


2939 

VANISH 

ENI 

0 4b 2 6 

71001746 

X 

2939+001 


XREQ 

0 4627 

1410 0 0 Q 2 


2941 ■ 


ENI ■ 

0 463 0 

71004626 

X ; ; 

2941+001 


XREQ 

0 46 31 

.1410 00 04 


1 2943 


ENI 

0 4632 

710 044.17 

X 

2943+081 


XREQ 

0 4 63 3 

14100002 


2945 


ENI 

0 46 34 

71004632 

X 

2943+001 


XREQ 

0 4635 

14100004 


2947 


ENI 

0 46 36 

710 0 31.07 

X 

2947+001 


XREQ 

04637 

14100002 


2949 


ENI 

0 4640 

71004636 

X 

2949+001 


XREQ 

Q 4 b 41 

14100007 


2951 


ENI 

0 46 4 2 

710 0.1600 

x 

2 95 2 


XREQ 

04643 

53020040 


2953 


TMA 

0 4644 

12077755 


2954 


SHA 

0 4645 

0460 00 0 2- 


2955 


ASE 

0 4646 

01004651 

p 

2956 


UJP 

0 4 64 7 

14100002 


2 957 


ENI 

0 465 0 

71000144 


2958 


XREQ 

0 4651 

14600000 


2958+001 


ENA 

0 465 2 

141UOU30 


2958+002 


ENI 

0 46 5 3 

71000000 


2958+003 


XREQ 

0 4654 

14100021 


2 959 


ENI 

04655 

71000000 


2 96 0 


XREQ 

0 4656 

01004656 

p 

2961 


UJP 




2962 




0 465 7 

p 

296 3 

WAR NR 

EQU 

04657 

53020045 


2964 


TMA 

04660 

0 3.2.0 466 3 

p 

2 963 


AZJ,GE 

0 4661 

14130110 


2966 


ERM 


0 46 6 3 

p 

2 96 7 

WARN01 

EQU 


■ ROUTINE TO PROCESS THE LOGOFF COMMAND 


. T v v V -4* V T T V *V 


>* V -V- T V V 


* 'V* * * A? - 


10 

SYSMASK 

10 

M2 22 

LOGOFFRtXl 
OUTLINE 


LEAVE ONLY TYPE OF SYSTEM 

OPERATOR TERMINATION 
RETURN ADDRESS 
PRINT CR-LF 


10 

AUX BIT 
EQi 
*+.2 
ULOG 
10 

SYSMASK 

TASKSYS 

VANISH 

TASKLOG 


CHECK FOR READING FROM A DO UNIT 
LOGOFF NOT LEGAL FROM XDOX UNIT 
RETURN ADDRESS 
LOGOFF THE USER 
GET TYPE OF SYSTEM 

SKIP If TASK 

REMOVE PSA IF NOT BATCH 

SCAN FOR JOB CARO 


10 

SYSMASK+AUXBIT 

TASKSYS 

E01 

1 

IBUFP 

10 

-IBUF8IT 

I8UFBIT 

10 

TASKL0G1 

ULGG 


FOUND JOS COMMAND 
CHECK FOR NO FQO* 

SKIP IF BATCH 

ILLEGAL CONTROL STMT IF TTY OR TV 

RE-PROCESS THE JOB CARD 

SET THE INPUT BUFFER FULL 
LOGOFF 


■VANISH 

VANISH 

ULOG 


SKIP LOGOFF IF NOT LOGED IN 
RETURN ADDRESS 
LOGOFF FIRST 


RFP * Xi 
LPUNXT , XREQ' 
UNEGUIP > XI 
LPUNIT,XREQ 
RFF i Xi 
SYSLUN,XREQ 


DESTROY THE PSA HERE 
FIRST MAKE SURE THAT® » 
• .*61 IS UNEQUIPPED 


UNEQUIP SYSTEM UNIT 


UNEQUIP,XI 

CAUSE IT MAY BE 

EQUIPPED ON 

SYSLUN,XREQ 

RFP,X 1 

AUXUNIT » XREQ 

OPERATOR TERMINATION 

UNEGUIP THE OO UNIT 

UNEQUIP,Xi 

SHOULD IT HAPPEN 

TO BE 

AUXUNIT,XREQ 

EQUIPPED® 


ZERGPAGE,X1 

CMPAGE3,XREQ 

l j a 
-18 

ZERO THE SCRATCH 

PAGE 

GET TYPE OF SYSTEM 

TASKSYS 

* + 3 

SKIP IF A TASK 


UNEQUIP,XI 
TASKUNIT+XREQ 

0 

TAPEMAX,XI 

UNEGUIP LUN 100 
ONLY IF A TASK 


REQUEST NO TAPES 


XREQ 

IN ORDER TO FREE 

TAPE DRIVES 

REMOVE,XI 

XREQ 

'l~ 

REQUEST ONE LESS 

USER 

V 

REQUEST 

GET REQUEST CODE 


WARN 01 

SKIP IF NOT RE-ENTER 

H 241 

MESSAGE TO HIM 
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- 

a 

0 

U 4 fa 6 3 

14130110 


2 9 fa 8 

OUT 

M241 ^ 

/WARNING - OSS WILL END IN 2 MINU 

0) 


0 4b fa 6 

14104670 

P 

2969 

ENI 

• + 2 , XI ' 

RETURN 

ADDRESS 



0 4 fa fa 7 

01001141 

P 

29 7 0 

UJP 

OUTLINE 

OUTPUT 

LINE 


1 

0 46 7 0 

14103267 

P 

2971 

ENI 

EXIT,XI 

RETURN 

TO USER PROGRAM 


0. 

0 4671 

. 

01001234 

P 

29 7 2 

UJP 

QUT8UF 

OUTPUT 

IF TV USER 

0 

0 









O 


0 

o 

o 

o 

O 
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0 

0 

O 
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o 

0 
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CD 
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CNTL 
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•? U- V V V f 'V* V V V V V V 

v -v- v v v v v v v v v v t v v v v r v v v v v v v v -r v v -r -v v v v r v '/■ 

-A v ^ i? 

( 7) 





29 7 5 


V 










2976 


v 

THIS ROUTINE DOES THE 

ACTUAL LOGOFF. 

¥ 






2977 


-r. 

IT ALSO 

PRODUCES THE 

COST MESSAGE. 

V 


O 




2976 


r v -v v v r v v 

V -v V V V V V '<■ V 

V V V V V v v-v V V V V V 

v v v v v v v v v *v v v ”■ v v- r v v v r •%'* ir v *?• -r r ^ v v v v v v v v r v v 

* 

* * * ^ 

. ; : O 

O 


0 4672 

P 

2981 


ULOG 

EQU 

V 

ROUTINE TO LOGOFF A USER 


o 

04672 

53420055 


2982 



TAM 

T 4 

SAVE RETURN ADDRESS 



0 4673 

14300042 


2933 



ENI 

42B , X3 

THE PAGE BELOW CM 




0 4 6 7 4 

04 377777 

X 

.2 93 4 


ULGGY 

ISE 

CMPAGE1,X3 

SKIP IF A CM PAGE 



o 

0 4675 

01004677 

p 

2985 



UJP 

*+2 



o 

0 4 6 76 

01004705 

p 

2986 



UJP 

ULQGZ 

CM PAGE, DO NOT ZERO 



04677 

04377777 

X 

2987 



ISE 

CMPAGE2 »X3 

SKIF IF A CM PAGE 



o 

0 4 700 

01004702 

p 

2936 



UJP 

* + 2 




0 4 7 0 1 

01004705 

p 

2969 



UJP 

ULQGZ 

CM PAGE, DO NOT ZERO 


o 

04702 

14100007 


2990 



ENI 

ZERGPAGE,XI 





0 4 7 0 3 

04304642 

.X . 

2991 



ISE 

CMPAGE3 j X3 

SKIP IF OH SCRATCH PAGE 



o 

047 04 

71300000 


■ 299 2 



XREQ 

XREG,X3 

ZERO ALL NON-CM CORE 



0 4705 

02704674 

p 

299 3 
2994 


ULOGZ 

IJD 

ULOGY t X3 



o 


04706 

14300143 


293 7 



ENI 

9 9 * X 3 

LARGEST USER LON 



o 


04707 

p 

2 998 


ULQ602 

EQU 

* 




0 4 7 0 7 

14100002 


2999 



ENI 

UNEQUIP* Xi 



o 

■04710 

71300000 


3 0 0 5 



XREQ 

XREQ ,X3 

UNEQUIP U SERFS LUNS 



0 4 711 

04100001 


3 0 0 6 



ISE 

1 * X1 

SKIP IF UNIT NOT EQUIPPED 




04712 

02505144 

p 

3 00 7 



IJD 

ULQG05,XI 

JUMP IF UNEQUIP ERRORS 



o 


0 4713 

p 

3 0 (I 8 


ULOG08 

EQU 

. V’ 




0 4713 

02704707 

p 

3'0 0 9 
3010 



IJD 

ULOG02 » X3 

LOOP 





0 4714 

14100014 


3 011 



ENI 

MFBLKREG, XI 

GET MFSLKS NOW BECAUSE 



o 

0 4715 

zioooaea 


3012 



XREQ ' 

. XREQ 

THEY WILL BE GONE AFTER 


o 

0 4716 

53420057 


3013 



TAM 

RF57 

THE LOGOFF REQUEST 



0 4717 

14100015 


3014 



ENI 

SF.BLKREQ,X1 





0 4 720 

71 0 0 0 0 C i.l 


3015 



XREQ ■ 

XREQ ■ 




o 

04721 

53420076 


3 0 2 6 



TAM. 

Kf 75 ; 

SAVE THE SFOLKS' 


o 

V *-'wX 

0 47 22 

53230044 


3 0.164 0 

01 


: TMI . 

IO., X2 




04723 

17200003 


30 1 64*8 

02 



.... SYSMASK, X2;.. 

SAVE SYS TYPE 




04724 

04200002 


3017 



■ ISE 

TASKS.VS,X2 

. SKIP If BATCH 



o 

04725 

01004732 

p 

3018 



UJP 

ULOGQ1 

IF KOI BATCH, LOGOFF 


o 

04 7 26 

14700000 


3 019 



ENG. 

STATUS 




0 47 27 

72004630 

X ■ 

301940 

01 


CNTL 

LPUNIT » CNTL 

GET STATUS ON UNIT 




0 473 0 

14304727 

X 

3021 



EMI . 

L PL*NIT , X 3 

PUT UNIT NUMBER IN X3 



o 

0 4 7 31 

04600002 


30 22 



ASE. 

■ 4 p ■ 

SKIP if A REAL LINE PRINTER 


V/-/; O 

l 04732 

14330000 


3 023 


ULOG01 

' ENI 

0, X3. 

LUH=G IF NOT LP 



047 33 

14100020 


3524 



ENI ',-.■■.: 

: LOG IN* XL::. 





0 4734 

146 0 0 0 il 0 


3 0 2.5 



ENA 

0 

INDICATE LOGOFF 



o 

0 4 7 35 

71300000 


3 826 



' XREQ 

XREQfX3. 

LOGOFF HERE 


o 

04 736 

53420053 


3327 



TAH 

1 c 

SAVE COST 




0 47 37 

14127570 


' 3 028 



OUT. 

. H210 . . ■ 

FCJST $* 




i 04742 

53020053 


3 0 2 9 ‘ 



. IMA 

T 2 

GET COST 



o 

: 04743 

13077747 


3.030 



SHAG. 

-24 ■ 




047 44 

51002644 

p ' \ 

3 031 



O v A 

0100 

COMPUTE DOLLARS AND CENTS 



04745 

53410053 


3 032 



T QM 

12 

SAVE CENTS 



o 

04746 

14104750 

p 

3 Q 3 3 



. ENI 

*+2,Xl 




0 474 7 

01001357 

p 

3 034 



UJP . 

. DECOUT ■ 

PRINT THE NUMBER OF DOLLARS 


o 

0 4750 

146 0 0033 


30 35 



ENA 

H 4 * ?■ 

DECIMAL POINT 




0 4 7 51 

53 01.0 0 53 


3036 



T HQ 

T2 .. 

GET CENTS 




0 475 2 

14200002 


30 37 



ENI 

2, X 2 



o 

o 

0 4753 

14104755 

p 

3 038 



ENI 

*■ + 2 * X I 



*w' 

0 4754 

01001371 

p 

3 0 39 



UJP 

OT 0 6 

PRINT THE NUMBER GF CENTS 



0 4 755 

14104757 

p 

3040 



ENI. 

*42,XI 




o 

0 4 756 

01001141 

p 

3 041 
3042 



UJP 

OUTLINE 

PRINT THE LINE 


o 

0 4757 

14127354 


3043 



OUT 

M2 Q 0 

CPU TIME SEC. 



04762 

53 01U 0 60 


3044 



TMQ 

RF 6 0 

CPU TIME 




u 47 o 3 

14604765 

p 

3 045 



ENA 

* + 2 




o 

04754 

01005154 

p 

3046 



UJP 

TIMEOUT 



o 

04765 

53020057 


3047 



IMA 

RF57 

GET MFBLKS 



0 4766 

03004776 

p 

3 0 48 



AZJ,EQ 

UL0G02A 





0 4767 

14127577 


3049 



OUT 

M21-1 

MFOLKS 



o 

04772 

5 3 0 2 0 0 5 7 


3050 



IMA 

RF 5 7 

GET THE MFBLKS 


o 

0 4773 

14104775 

p 

3 051 



ENI 

*+2,Xi 




0477 4 

01005147 

p 

3 05 2 



UJP 

DECLF 

PRINT MFBLKS 




0 477 5 

53020075 


3 0 5 3 


ULOG 0 2 A 

TMA 

RF75 

GET SF8LKS 



o 

047 76 

030 050 0 5 

p 

3 0 5 4 



AZJ,EQ 

ULCG023 



o 

0 47 7 7 

14127615 


3055 



OUT 

M212 

SFBLKS 



05 0 0 2 

53020075 


3 05 6 



TMA 

RF75 ... 




o 











o 








ASSEHBLER/0S3 V I. 0 09/24/74 1604 PAGE 64 CNTLMOOE 


05 0 03 

i 41G b 0 G L 5 

P 

3057 

3 0 5 0 


S3f 


0 5 0 0 4 

01005147 

P 


L) L \j L r 


0 5005 

P 

3 0 59 

ULOGO 20 

EOU 


0 5 ti 0 5 

53020061 


3060 


T M A 

RF6 1 

0 5 U 0 6 

030U50Z0 

P 

3061 

3062 


A ZJ,EQ 

U LOG,03; 

05007 

14127372 


3 0 6 3 


OUT 

M2 01 

0 5 012 

14605020 

P 

3 064 


ENA 

UL0GQ3 

05U13 

5 3 42 0 0 5 4 


3065 


TAM 

TMA 

T 3 

0 50 14 

53020061 


306b 


RF 6 1 

05015 

13077747 


. 3 0 6 7 


SHAQ 

-24 

0 5 01b 

51006130 

P 

3 0 66 


OVA 

D6 

05017 

01005160 

P 

3 069 

30 70 


UJP 

TIME0UT2 

05 02 0 

53020062 


3 071 

UL05Q3 

LISTACC 

RF62,H202 

05030 

53020063 


3 07 2 


LISTAGC 

RF6 3iM203 

05040 

53020064 


3 073 


LISTACC 

RF64»M204 

G h 0G 

5 3 0 20 0 65 


3 0 74 


LISTACC 

RF65,M205 

05060 

53020067 


3075 


LISTACC 

RF6 7, M20 7 

0507 0 

53020070 


3076 


LIS TACC 

RF? 0 »M208 

05100 

53020071 


307? 


LISTACC 

RF?I, M209 

0.5110 

53020072 


3078 

3079 


LISTACC 

RF? 2»M235 

05120 

53020066 


3080 


TMA 

RF66 

0 5121 

03005130 

P 

3 0 81 


AZJ,EQ 

LOGTA 

05122 

14127500 


3082 ' ' 


OUT 

H 2 0 6 

0 512 5 

53010066 


3083 


TMQ 

RF6 6 

0 5126 

14605130 

P 

3 0 8 4 


ENA 

* +2 

05127 

01005154 

P 

3085 


UJP 

TIMEOUT 


05130 

P 

3 08 6 

3037 

LQGTA 

EQU 


0 513 0 

141U5132 

P 

3 08 8 


ENI 

♦+2.X1 

0 5131 

01001234 

P 

3 03 9 


UJP 

OUTBUF 

05132 

53 0 2 0 044 


3090 


THA 

10 

05133 

17600003 


3 091 


ANA 

SYSMASK 

05134 

04600002 


3092 


ASE 

TASKSYS 

0 5135 

01005142 

P 

309 3 


UJP 

ULOG04 

0 5136 

1410 0 Q 04 


3094 


ENI 

"RFPi XI 

05137 

71004730 

X 

3094+001 


XREQ . ..... 

LPUNIT,XREQ 

0 5140 

1410Q002 


309b 


ENI 

UNEQUIP,XI 

0 5141 

71005137 

X 

3 096+0 01 


XREQ 

LPUNIT»XREQ 

0 514 2 

53130055 


30 9 8 

ULOG04 

I HI 

14, XI 

0 5143 

0110 U 0 0 0 


3099 


UJP 

0,X1 

05144 

14100004 


3101 

ULOG05 

ENI 

' RfPrXl- " 

05145 

71300000 


3 1 S 2 


XREQ 

XREQ,X.3 7 

0 5146 

01004707 

p . 

318 3 


UJP 

ULOG02 


0 5147 

53530G6J 


3185 

DECLF 

TIM 

12,XI 

0 515 0 

14105152 

p 

310 6 


ENI 

* +■ 2 , X1 

0 5151 

0100517? 

P 

3107 


UJP 

FDECOUT 

0 5152 

53130053 


310 8 


TMI 

T 2 , XI 

05153 

01001141 

P 

3109 


UJP 

OUTLINE 


05154 

5J420054 


3111 

TIMEOUT TAM 

T3 

0 515 5 

14600000 


3112 

ENA 

a 

0 515 6 

15700062 


3113 

INQ 

6 0 

0 51,57 

51002644 

P 

3114 

OVA 

0100 

0 516 0 

13U77747 


3115 

TIMEOUT2 SHAQ 

-24 

05161 

51002643 

P 

3116 

OVA 

D10 

05162 

534.10 05 3 


3117 

TQM 

T 2 

0 516 3 

14200004 


3118 

ENI 

4, X 2 

05164 

14105166 

P 

3119 

ENI 

” +2,XI 

U 5165 

01005200 

P 

312 0 

UJP 

FDEC02 

05166 

53630054 


3121 

TIM 

T 3 » X 2 

05167 . 

14600033 


3122 

ENA 


0 517 0 

14305172 

P 

3123 

ENI 

*+2,X3 

0 5171 

01001031 

P 

3124 

UJP 

OUTCHAR 

05172 

53 02005 3 


3125 

TMA 

T 2 

05173 

14305175 

P 

3126 

ENI 

"• + 2 ,X3 

0 5174 

01001031 

P 

312 7 

UJP 

OUTCHAR 

05175 

53130054 


312 8 

TMI 

T3, XI 

05176 

01001141 

P 

3129 

UJP 

OUTLINE 


PRINT NUMBER OF SFBLKS 


GET WG TIME 
JUMP IF ZERO TIME 

WC TIME MIN* 

RETURN ADDRESS 

GET WC TIME 

COMPUTE TENTHS OF MINUTES 


LP RECORDS 

PUN RECORDS 
PLOT RECORDS 
CAROS READ . 

OTHER INPUT 

PTP RECORDS 

OTHER OUTPUT 

USER DISK PACK SECONDS 

TAPE ACTIVITY 

TAPE ACTIVITY 


WRITE THE TV SCREEN 


GET RETURN ADDRESS 
RETURN 


REMOVE FILE PROTECT 
TRY THE UNEQUIP AGAIN 


SAVE RETURN 


GET RETURN ADDRESS 


SAVE RETURN ADDRESS 
ROUND 


SAVE MILLISECONDS 
FOUR DIGITS 

PRINT UNITS 

SAVE RETURN ADDRESS <AGAIN) 


OUTPUT A PERIOD 
GET MILLISECONDS 

OUTPUT TENTHS 
RETURN ADDRESS TO XI 
PRINT THE LINE 
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3132 
313 3 

3134 

3135 
3 13b 


V- v v v v v- v nr v v v "A t v n’ v r v v v v v 'A nr nr nr nr nr nr -A nr v 'A v v v v nr 'A v nr *A nr v nr v nr nr nr -r nr nr nr n* nr nr nr nr nr nr nr nr nr Ar n? *A nr nr v 

* 

FOECOUT --FORMATED DECIMAL OUT * 

PRINTS NUMBERS IN 16 FORMAT * 

v -A nr -A -A nr -A -A -A -A nr v v -A v r nr -A v v -A nr nr-A -A -A nr nr nr nr. nr -A v v nr nr nr nr -A nr v nr nr nr nr -A 'A nr nr nr nr nr nr 'A nr nr nr nr -A nr nr nr nnnAnAnrnr-Anrn? 


U 517 7 
U52UQ 
05201 
U5202 
0 520 3 
0 520 4 
05205 
0 5206 
052 07 

0 5 210 
0 5211 


i ; +2UGOOu 
03205202 P 
14600000 
13077747 
14600000 
51202642 P 
03101371 P 
02605210 P 
01001367 P 

14600060 
14305203 P 
01001031 P 


314 0 

3141 

3142 

3143 

3144 

3145 

3146 

7 i i. 7 


3150 

3151 


FDECOUT 

FDEC02 


FDTQ2 


FDT03 


ENI 

AZJ/GE 

ENA 

SHAQ 

ENA 

OVA 

AZJ ,N£ 
I JO 
UJP 


6 j X 2 
* + 2 
0 

-24 

a . . 

DTABLE,X2 
U T 0 6 

FDT03,X2 
DIG 4 

SOB 

FO T 0 2 j X 3 
OUTCHAR 


NUMBER OF CHARACTERS 
ALT a ENTRY, SPECIFY X2 
ZERO IF NEGATIVE 
PUT NUMBER IN Q 


JUMP IF NOT ZERO 
JUMP.IF LEADING BLANK 
PRINT ONE ZERO 

PRINT LEADING BLANK 
RETURN ADDRESS 


O 


O 
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CNTLHOOt 


315 4 
3155 
315b 
3157 


15213 

53020u4 5 



3160 

LOGOI 


T M A 

REQUEST 

GET RE-ENTER BIT 

15 214 

17677777 



3161 



ANA 

777778 

MASK DOWN TQ THE REQUEST 

0 52.15 

15477753 



3162 



INA»S 

DEC GOE-RVANISH 

CHECK FOR VANISH REQUEST 

0 5216 

Go 0U4625 

P 


816 8 



AZ J ,EQ 

VANISH 

DESTROY PSA IF VANISH REQUEST 

0 5217 

53020040 



3164 



TMA 

L J A 

GET TYPE OF CONTROL MODE 

0 5220 

12077755 



316 5 



SHA 

-18 


05221 

53500000 



o 166 



T AI 



0 5 222 

b 3 b 3 0 0 4 4 



316? 



TIM 

10, XI 

SAVE INPUT UNIT NUMBER 

(J 5 223 

05100003 



3186 



ISG 

3, X i 

SKIP IF TOO LARGE 

05224 

01 i 0 5 2 2 8 

P 


3169 



UJP 

*+2,XI 


0 5225 

01005225 

P 


31 1 Q 



UJP 


TRAP 

05226 

01005422 

P 


317.1 



UJP 

TTYLOG 


05 227 

01005426 

P 


3172 



UJP 

TV LOG 






3173 

Y Y r Y Y Y Y 

Y 


**T ASKLGG******** 

Y Y Y T Y 





3176 

Y y y S§, if, 


•Ir Y 47 Y -v* Y -4? 

y y ■¥* y *§• n? y y y Y y y yt y y 

Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y *Y Y Y YV If Y V Y Y V Y Y 

* 





317 7 

3176 

Y 

Jf. ■ 


ROUTINE 

TQ LOGIN A BATCH 

TERMINAL * 

' Y 





y *>’ If -y y *y 7r -V' 

Y 

-14 If- 5,1 -\f y 

If If If iy. ^f If y Y ^ Y Y r T Y 

Y Y Y Y Y ^ Y Y Y Y Y Y ^ Y Y "V “ Y Y V Y Y Y Y Y Y Y Y ^ Y ^ If 





313 0 






0 5 230 

■ 53020044 



3181 

TASKLQG 


TMA 

10 


0 5 2 31 

17477737 



313 2 



ANA jS 

~vIBUFB.X r 

REMOVE INPUT BUFFER 

05232 

53420044 



818 8 



TAM 

10 ■ 

FORCE READING ANOTHER CARD 

05233 

14200060 



3184 

TASKLOG 

i 

ENI 

H* / 1 X2 

INITIAL CHARACTER 

0 5234 

141U 5 2 3 6 

P 


3185 



EMI 

* + 2* XI 


05235 

01001413 

P 


3.18 6 



UJP 

PACKER 

LOOK FOR 5f JOB t 

05236 

01005230 

P 


318? 



UJP 

TASKLOG 

NO JOB CARO 

05237 

01005230 

P 


3188 



UJP 

TASKLOG 

NO JOB CARD 

0 5 240 

36002677 

P 


3189 



SC A 

SCOJOB 

CHECK FOR JOB 

0 5 241 

03105230 

P 


. 3190 



. A 2 J $ Nfc 

TASKLOG 

NOT 7JOS 1, TRY AGAIN 

0 5 2 4' 2 

14105244 

P 


8190+001 



ENI 

*+2,Xi 

05243 

01Q01413 

P 


519 0+GO 1 2 



UJP 

PACKER 


0 5 244 

01005373 

P 


3190+003 



UJP 

T ASKILJX 

EOL 

05245 

01005253 

p- 


3190+004 
3i90+ 005 

Y 


UJP 

TASKLOGQ 

NUMBER 

QUQUE NAME 

0 5246 

14105250 

P 


3191 



ENI 

*■+2 1 Xi ■ 

05247 

0i001413 

P 


3192 



UJP 

.PACKER . 

LOOK FOR THE JOB NUMBER 

0 5250 

01005373 

p . 


3i32+001 



UJP 

TASKILJX 

END OfLIME, ILLEGAL JOB CARO 

0 5 251 

01005253 

P 


3194 



UJP 

* + 2 . 

FOUND NUMBER 

0 5 252 

01.005373 

P 


5194+0Si 



UJP 

TASKILJX 

BCD ITEM, ILLEGAL JOB NUMBER 


05253 

p 


3194+302 

TASKLOG 

a. 

EQU 

Y ■ 


05253 

53420060 



3196 



TAM 

RF6 0 

SAVE THE JOB NUMBER 

0 5 254 

20000006 

C 


■5197 ■■ 



LDA 

IBUFP 

GET ADDRESS OF VALID FIELD 

0 5 255 

40001001 

c 


3198 



ST A 

OVLBUF 

SAVE IN A TEMP 

0 5 256 

14105260 

p 


3199 



ENI 

*+.2* XI ' 


0 525 7 

01001413 

p 


320 0 



UJP 

PACKER 

LOOK FOR A VALIDITY CODE 

0 526 0 

14600000 



32 01 ■ 



ENA 

o- 

END OF LINE, USE ZERO 

05261 

13077747 



32 0 2 



SHAQ 

—24 

MOVE VALID TO Q 

05262 

0300526b 

0 


320 3 



AZJfEQ 

TASKLQG2.. 

JUMP IF NUMERIC 

0 526 3 

13 011 0 0 3 0 



3 2 0 4 



SHAO 

2 4 

GET LAST 4 CHARACTERS 

0 5264 

36001515 

P 


3205 



SCA 

BLANKS 

CHECK FOR 4 BLANKS 

0 5265 

03105373 

P 


3205+001 



A Z J j N E 

T ASKILJX 

ILLEGAL VALITITY 

0 5266 

53020060 



3207 

TASKL0G2 

TMA 

RF6 0 

GET JOB NUMBER 

0 5267 

Q 3 0 0 5 3 7 3 

P 


32ii 7+081 



AZJ.EQ 

TASKILJX 

ZERO JUS IS BAD 

0 5270 

141U 0 0 2 0 



3209 



ENI 

LOGIN,XI 


0 5 271 

71000000 



3210 



X RED 

XREQ 

ATTEMPT TO LOGON 

0 52 72 

02505374 

P 


3 211 



IJD 

TASKILJNtXl 

JUMP IF NOT LEGAL 

0 52 73 

14100002 



3212 



ENI 

UNEQUIP,XI 


05274 

7.1 0 0 5141 

X 


3212+001 



XREQ 

LPUNIT , XREQ 

UNEGUIP PREVIOUS LPUNIT 

0 5275 

54300006 

c 


3214 



LDI 

IBUFP,X3 

GET CURRENT BUFFER POINTER 

0 52 76 

24001001 

c 


3 215 



LCA 

OVLBUF 

GET - { OLD BUFFER POINTER ) 

0 52 77 

53740000 



3216 



IAI 

X3 

GET LENGTH OF VALID FIELD 

0 5300 

54100006 

c 


3217 



LDI 

IBUFP,XI 

GET CURRENT BUFFER POINTER 

0 5 3 01 

14700060 



3 2 1B 



EMQ 

H7 t 

GET SET TO BLANK OUT 

05 30 2 

0 25 0 530 4 

p 


3 219 



UU 

•” +2 , XI 

THE VALIDITY FIELD 

0 53 0 3 

43 40 0 0 6 0 

c 

00014 0 

3 221) 



SQCH 

IQUF, XI 

STORE ONE BLANK 

0 5 3 0 4 

10500000. 



3221 



ISO 

0,X1 

DECREMENT XI 

0 5 3 0 5 

02705303 

p 


322 2 



IJD 

*-2,X3 

LOOP UNTIL DONE 


3 


THIS ROUTINE DOES THE LOGIN FOR ALL DEVICES 
FIRST THE INPUT DEVICE TYPE IS EXAMINED• 
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CNTLMODE 


0 53 06 

53430060 


3 22 4 


TIM 

TIM 

RF6 0,0 

05307 . 

53430061 


3 2 2 5 


KF61,0 

0 5310 

04200037 


322b 


ISE 

3 7 B , X 2 

0 5 311 

01005313 

P 

3227 


UJP 

” +2 

0 5 312 

01005321 

P 

3228 


UJP 

TASKLOGX 

0 5 313 

14105315 

P 

322 9 


ENI 

+ + 2,XI 

0 5 314 

01001413 

P 

323 0 


UJP 

PACKER 

05315 

01005321 

P 

3231 


UJP 

TASKLOGX 

0 5 316 

0100533b 

P 

3232 


UJP 

TASKLCG3 

05317 

53420060 


3233 

TASKLOGY 

TAH 

RF6 0 

0 532 0 

53410061 


323 4 


TQM 

RF61 

0 5 3 21 

25006115 

P ' . 

3235 

T ASKLOGX 

LDAQ 

BCOLP 

05322 

14100003 


3236 


ENI 

EQUIP,XI 

0 5 32 3. 

71005274 

X 

3236+001 


XREQ 

LPUNIT,XREQ 

05324 

02505363 

P 

3238 


IJO - 

T ASKL0G9,XI 

0 5 325 

1471100 00 


3239 

TASKL0G5 

ENQ 

STATUS 

0 5 3 2 6 

72005323 

X 

3239+001 


CNTL 

LPUNIT, CNTL 

05327 

05600003 


3241 


A Sb 

LP+1 

05 3 30 

05600001 


3242 


ASS 

FILE 

05331 

01005363 

p 

3 243 


UJP 

TASXLGG9 

05332 

37002671 

p 

3244 


LPA 

IOBITS 

0 5333 

03105363 

? 

3245 


AZJ»NE 

TASKL0G9 

0 5 33 4 

14305523 

p 

3245+001 


ENI 

LOG 0 22,X3 

0 53 35 

01001243 

p 

3247 


UJP 

FILEECHO 

0 53 3 6 

13077747 


3249 

T ASKL0G3 

SHAQ 

-24 

0 5337 

04700075 


3249+001 


QSE 

61 

0 5 34 0 

U 1 0 0 53 17 

p 

3251 


UJP 

TASKLOGY 

05341 

14105343 

p 

3 252 


ENI 

* + 2 , X1 

0 5342 

01001413 

p 

3253 


UJP 

PACKER 

05343 

01005321 

p 

3254 


UJP 

TASKLOGX 

0 5344 

01005321 

p 

3255 


UJP 

TASKLOGX 

05345 

14100003 


3256 


ENI 

EQUIP,XI 

0 5346 

7101)5326 

X 

3256+001 


XREQ 

LPUNIT , XREQ. 

05347 

04100002 


3258 


ISE 

2,XI 

05350 

01005361 

p 

3.259 


UJP 

TASKLOG4 

0 5 3 51 

25006112 

p 

326 0 


LDAQ 

SCO FILE 

0 5 35 2 

14100003 


3261 


..ENI: 

EQUIP,XI 

05353 

71005346 

X 

3261+001 


XREQ 

LPUNIT,XREQ 

0 5354 

53020052 


3263 


IMA 

Ti 

0 5 355 

53010053 


3264 


T H Q 

.12 

0 5 356 

14100001 


3265 


ENI 

SAVE,XI 

05357 

71005353 

X 

3265+001 


XREQ 

LPUNIT,XREQ 

05 36 0 

02505363 

p 

3267 : 


IJO 

TASKL0G9,XI 

0 5 361 

02505321 

p 

3288 

TA.SKi.0G4 

IJO 

TASKLOGX,XI 

05362 

01005325 

p 

3269 


UJP 

TASKLG65 


0 5 363 

14600000 


3271 

TASKL0G9 ENA 

0 

0 5364 

14100020 


3272 

ENI 

LOGIN,XI 

05365 

71000000 


3273 

XREQ 

XREQ 

RF P,X1 

05366 

14100004 


3274 

ENI 

05367 

71005357 

X 

3274+0 0.1 

XREQ 

LPUNIT,XREQ 

0 5 3 7 0 

14100002 


32 7 6 

ENI 

UNEQUIP,XI 

05371 

7100536? 

X 

32.76 + 0 01 

XREQ 

LPUNIT,XREQ 

05372 

01006230 

P 

3278 

UJP 

TASKLOG 



0 5373 

P 

3279+001 

05373 

. 14100001 


3279+002 


05374 

P ’ 

3283 

05374 

53530055 


3 281 

05375 

25006115 

P 

3282 

0 5 376 

14100003 


3283 

05377 

71005371 

X 

3283+001 

0 5 4 0 0 

14305402 

p 

3285 

0 5401 

01001243 

p 

3286 

05402 

53020055 


3287 

0 540 3 

5350 0 00 0 


3288 

0 5404 

53540000 


3289 

0 540 5 

53540000 


329 0 

05406 

01105407 

p 

3291 

05407 

14130154 


3 292 

05412 

i 412 7 6 71 


3 29 3 

0 5415 

14127650 


3 294 


0 5420 

p 

3295 . 


TA3KILJX EQU * 

£HI 1, X1 

TASKILJN. EQU *■ 

TIM T4,X1 

LDAQ BCDLP 

EMI EQUIP,XI 

XREQ LPUNIT, XREQ 

EMI *+2,X3 

UJP FILEEGHC 

I HA T4 

T A I XI 

IAI XI 

I AI XI 

ujp *+i,xi 

OUT M224,T ASKLOGE 

OUT M22 0 » TASKLOGE 

OUT M225,TASKLOGE 

TASKLQGE EQU * 


WIPE OUT RF 60 AMO 61 
SKIP IF AT END OF INPUT 

SKIP FURTHER READS IF AT EOL 

GET NEXT ITEM 

END OF LINE, USE 6i = LP 

CHECK FOR *61* 

PUT BCD COMMENTS INTO RF60 
AND RF61 

GIVE THE USER A LP 

EQUIP LPUNIT 

VANISH IF EQUIP ERRORS 

61 IS EQUIPPED HERE 

SKIP IF NOT A FILE OR LP 
SKIP IF A FILE OR LP 
LUN 61 IS NOT USEAELE 
CHECK FOR READ-ONLY OR A/U 
LUN 61 IS NOT USEABLE 
RETURN ADDRESS 
LIST THE JOB GARB 


NUMBER TO 0 

SKIP IF *61* 

JUMP IF NOT *61* 

FOUND *61*, 

LOOK FOR FILE NAME 

END OF LINE 

ANOTHER NUMBER 

FOUND FILE NAME CMAYBE) 

ATTEMPT AN EQUIP 

SKIP IF NAME NOT FOUND 

GO EQUIP LP IF ERRORS 


EQUIP A FILE 
GET THE FILE NAME 


ATTEMPT A SAVE 
FORGET THIS USER IF ERRORS 
TRY TO EQUIP A LP IF ERRORS 
FILE IS EQUIPPED 


FORM ILLEGAL JOB/USER NUMBER 

LOG THE *FINK* OFF 

GET RID OF LPUNIT 

UNEQUIP LPUNIT 
PROCESS MORE CARDS 


SAY ILLEGAL JOB/USER NUN 

SAVE ERROR CODE FROM LOGIN 
EQUIP,61=LP 


LIST THE BAD JOB CARD 
GET ERROR CODE 
TO INDEX 
TIMES 2 
TIMES 3 

JUMP TO APPROPIATE PRINT MESSAGE 
INSUFFICIENT TIME 
ILLEGAL JOB/USER NUMBER 
EXPERIMENTAL OS3 
ALL RETURN TO HERE 
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0 5421) 1410 52 30 P 3 29 b 

05421 01001141 P '6 2.97 

CNTLMODE 

ENI 

U JP 

TASKLOG»X1 
OUTLINE 

RETURN ADDRESS 

PRINT ERROR 
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G 




3 30 0 

V T V V -V- V V V V 






3301 

r 

ROUTINE 





3 3 02 



Cl 

; 




V -V '«* V V -V- V V V 

"V V ”»* V V V V V 

O 

0 3 4 Z 2 

14677777 

X 

3305 

TTYLOG 

ENA 

01542 3 

1*100026 


8 30b • 


LNI 

1)5424 

71000000 


5 8 0 7 


XREQ 


05425 

03005517 

F 

3 30 8 


AZJ,EQ 

o 


0 542 6 

P 

3309 

TVLQG 

EUU 

0 5426 

142 0 0 0.6 0 


3310 


ENI 

05427 

141U 5 4 3 3 

P 

3311 


ENI 


05430 

53330045 


8 312 


THI 

o 

0 5431 

05300022 


8 o 1 o 


ISG 

05432 

01001413 

P 

3 3 14 


UJP 

05433 

0 i 0 U .5 5 i 7 

P 

3315 

TTYLOGQ 

U J P 


0 5 4,3 4 

01005435 

P 

33.16 


UJP 


05 435 

01000444 

P 

3317 


UJP 

o 

0 54 36 

53420060 


3 318 


I AH 

05437 

14105441 

P 

3319 


ENI 


05440 

01001413 

P 

. 8 3 2 0 


UJP 

o 

0 5441 

14600000 


3321 


ENA 

1)54*2 

13077747 


3 322 


SHAQ 


0544.3 

03005447 

P 

. 3 32 3 


AZJ jEQ 


!. 0 5444 

13000030 


■ 3 3 2 4 


SHAQ 


U 5 4 4 5 

36001515 

P 

3325 


SC A 

n 

05448 

03105507 

Q 

T 

3326 


A 23,HE 


05447 

53020044 


3 327 

TTYLGG1 

THA 


0 8 450 

17600003 


332 8 


ANA 

O 

05451 

03105467 

P 

8 8 2 9 


AZJtNE 

05452 

14100003 


3 3 3 0 


ENI 


0 5 453 

22430544 

P 0613.1 

L 0 3331 

TBL0T02 

LACH 


0 5 484 

15 6 0 0 s 2 4 0 


. 3.8 S 2 


. .INA ... 

O 

0 5 45 5 

. 14300013 


3333 


ENI 

05456 

' 7 7760000 


3 3 6 k 


CTO 


0 5 457 

02705456 

P 

3335 


130 


U 54b 0 

.146 0 0 215 


■ 3 3 3 6 


ENA 

O 

0 54 61 

77760000 


3337 


CTO 

'05462 

1460037? 


3338 


ENA 

0 546 3 

77760000 


3339 


CTO 


0 5464 

02505453 

P 

3340 ■ 


I.J.Q- 

O 

05465 

146 0 0 01.2 


4 i 


, ENA: 

05466 

7 7 7600 00 


3342 


CTO 

05467 

5302011 fot) 


334.3 

TTY 10.62 

■THA 


0 547 0 

0 3 0 Q 5 5 0 ” 

P 

3344'. 


kid, EQ 


0 5471 

14100020 


5345 


ENI 

O 

05472 

71.00 0000 


3346 


XREQ 

05473 

02505501 

P 

334? . 


130 


0 547 4 

14700144 


3 348 


ENQ 



05475 

P 

5 348+ 1 

SOI LOGO21 

EQU 

O 

0 5 475 

14100003 


0’ 4 9 


ENI 

0 5476 

14600000 


335 0 


ENA 


0 5477 

71000075 


335:1 


XREQ 


0 5500 

01005525 

P 

3 6- 2 


. UJP 

O 


05501 

P 

3 35% 

.TTYILJN 

EQU 


0 5501 

02505506 

P 

3355 


I JO 

O 

0 5502 

14105504 

P 

3 356 


ENI 

0 5503 

01001141 

P 

3 357 


UJP 


r 05504 

14130154 


3358 

3 359 


ERM 

O 


0 5506 

P 

336 0 

8A0NUM 

EQU 

0 55 0 6 

02505513 

P 

3361 


IJO 



055 07 

P 

3 36 2 

ILLJOB 

EQU 


. 05507 

141055-11 

P 

3363 


ENI 

O 

05510 

01001141 

P 

3 364 


UJP 

0 5 511 

14127671 


3365 

3366 


ERM 




0 5513 

P 

3 3 6 7 

EXPR0S3 

EQU 

o 

0 5513 

14105515 

P 

3368 


ENI 

^ 05514 

01001141 

P 

3369 


UJP 


0 5515 

14127650 


33 7 0 

3 371 


ERM 

o 


05517 

P 

3372 

LOGREQ 

EQU 

0 5517 

14105521 

P 

337 3 


ENI 


0 5520 

01001141 

o 

337 4 


UJP 

o 
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CNTLHODE 







3378 

-V- 


■v 





337 9 

* A USER IS 

LOGGED IN IF HERE > 






3380 

* SET TIME ♦ 

MFBLKS, AND EQUIP 

STANDARD UNITS. * 





3 381 

V 


¥ 

Cl 





T V V V V •v 3* V V V V V V V "V V Ft' V “• 

n* "* v v -v nr r v v v r v- v r t v v 'r 

V V r Y V T Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y ^ Y Y Y Y Y Y Y ¥ Y Y Y Y 

o 

0 952 3 

14705377 

X 

3383+GG1 

LOG022 EHQ 

LPU.NIT 



G 5 52 4 

01005475 

F 

3303+002 

UJP 

LOG021 



0 552 5 

14700144 


3 38 4 

LOG 0 2 ENQ 

TASKUNIT 


o 

0 5526 

14100003 


33 8 5 

ENI 

EQUIP,XI 



0 5527 

14600000 


3 3 8 6 

ENA 

0 



0 5550 

71000074 


3387 

3 58 8 

XREQ 

60+XREQ 

EQUIP,60=100 

o 

0 5 5 51 

14600074 


3389 

ENA 

60 



05532 

14100011 


3390 

ENI 

TIHESET ,XI 



0 5533 

71000000 


3391 

Tt !Q p 

XREQ 

XREQ 

TINE=60 

o 

05534 

14600144 


3393 

ENA 

10:0 



0 5 5 36 

14100013 


3394 

ENI 

HFBLKSET,XI 



0 55 36 

71000000 


339 5 

3 59 5 

3397 

XREQ 

XREQ 

MFBLKS=10 0 

o 

0 55 37 

25006110- 

P : 

LOAQ 

OCDOATE 



05540 

14100010 


3 398 

ENI 

LIBCAL L , XI 



05541 

14200215 


3399 

ENI 

215 B , X 2 

INDICATE NO PARAMETER STRING 

■ ; o 

0 554 2 

710.000110 


3 40 0 

XREQ 

XREQ 

*QAT£ 

05643 

01000421 

P 

3401 

UJP 

MC2 0 

JUMP IF NO BATE (STRANGE) 
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CNTLHODE 


3 40 4 

340 5 PHANTOM 

3 4 U b *_ 

v v v v v v r v t v v v v r v v 


3 4Q8 


0 5 5-4 4- 

3 3 3 3 0 0 4 5 


340 9 

PHANTOM 

I- MI 

G 5 5 -i 5 

05300004 


3 410 


ISG 

05546 

01005575 

P 

3411 


UJP 

U 3 54 7 

0 4 3 0 0 0 U 5 


3412 


ISE 

0 5550 

01005552 

P. . . 

3 41*1. 


UJP 

0 5 551 

01005651 

P 

3414 


UJP 

05552 

04300021 


3415 


ISE 

05553 

01005555 

P 

3416 ■ 


UJP 

0 5534 

01005575 

P 

3417 


UJP 

0 5 3 5 5 

043Q0023 


344 8 


ISE 

0 5 55 6 

01005555 

P 

3419 

342 0 


UJP 

05557 

14300143 


3421 

PHAN TERM 

ENI 

05560 

14100002 


3422 


ENI 

0 5561 

71300000 


■ : 3423 


XREQ 

05562 

02705560 

P 

34.24 


IJO 

0 5 563 

143 0 0 0 20 


i- l£3 

3 4 2 6 


ENI 

0556 4 

14100007 


3427 

PHAN02 

ENI 

05565 

05304703 

X 

3 42 8 


ISG 

0 35 66 

.0530467 4 

X 

3429 


ISG 

05567 

71300000 


3430 


XREQ 

055 7 0 

10 3 0 0 0 3 7 


3431 


ISI 

0 5571 

010 0 5 56 4 

P 

3432 


UJP- 




3433 



05572 

14100021 


3 4 3 h 


EM I 

i ] 55 7 3 

71000000 


3 4 3 5 


XREQ 

05574 

01005574 

P 

343 6 

*7 h ~2 rz 


UJP 

0 557 5 

14300143 


3438 

PHANLOG 

ENI 

0 5 576 

14100002 


3439 


ENI 

0 5577 

713GUG0Q 


344 0 


XREQ 

. 05 6 0 0 

02705576 

P 

3441 

2 S. IVO 


IJD 

Q 5 6 01 

14300020 


ii % '‘■I’ fc, 

3443 


ENI 

05602 

14100007 


3444 

PHAN04 

ENI 

0 5603 

05305565 

X 

3445 


ISG 

0 5604 

05305566 

x 

3446 


ISG 

0 66 05 

71300000 


344 7 


XREQ 

0 5606 

10300037 


344 8 


x v : ■' 

05607 

01005602 

p 

.3449- 

'4 Fi +1 Hi 


UJP ’ 

0 5610 

.53020070 


£> H ^ .11 

3450*001 


TMA 

05611 

53010071 


3450+002 


TMQ 


0 5612 

p 

3450+00 3 

PHAM06 

EQU 

05612 

14100003 


345.2 


ENI 

0 5 613 

7 10 U 0 0 7 3 


345 3 


XREQ 

05614 

04100000 


3454 


ISE 

05615 

01005666 

p 

3454+001 


UJP 

0 5616 

14601001 

c 

3 456 


ENA 

0 5617 

14700004 


3457 


ENQ 

05620 

74Q00073 


.345 8 


READ 

05621 

04500000 


0 


QSEtS 

05622 

01005665 

p 

3459+001 


UJP 

05623 

54201003 

c 

3461 


LDI 

05624 

25001001 

c . 

346 2 


LDAQ 

0 5 625 

17677777 


3 46 3 


ANA 

i 05626 

17777777 


346 4 


ANQ 

0 5627 

53U41)0 00 


3465 


AQA 

0 5 6 3 0 

12077764 


3 466 


SHA 

0 56 31 

..156.0 0 02 0 


346 7 


INA 

0 5 6 3 2 

05605604 

X 

3468 


ASG 

0 5 6 3 3 

01005635 

p 

346 9 


UJP 

0 5 634 

01005365 

P 

346 9+0 01 


UJP 

0 5 635 

20001001 

c 

34 71 


LOA 

05636 

17677777 


3472 


ANA 

0 5637 

74 0 0 0 0 7 3 


3473 


READ 

05640 

04500000 


347 4 


QS£,S 

0 5641 

01005665 

p 

3474+001 


UJP 

05642 

14100007 


3476 


ENI 

05643 

71005603 

X 

3 47 7 


XREQ 

0 3 644 

14100002 


3 4 78 


ENI 

0 5645 

71000073 


347 9 


XREQ 


CONTROL NODE SYSTEM 


v -r v v v v v ^ v v r v -v- -v- v v -v* v v v t -t v v A' ‘r -r r t v v -v ■V- v -v- v t -y v 'r x v A- v v v v v t v 

REQUEST,X3 GET THE REQUEST CODE 

RILLINS-1-DECGDE » X3 

PHANLOG LOGIN THE PHANTOM 

RILLINS-DECODE,X3 SKIP IF ILLEGAL INSTRUCTION 

+• 2 

PHANILL ILLEGAL INSTRUCTION 

RA8GRT-DECG0£,X3 IS HE TRYING TO TELL ME SOMETHING 

PHANLOG 

ROFIERM-DECODE,X3 SKIP IF OPERATOR TERMINATION 

- LOOP ON OTHER ERRORS 

99, X3 UNEQUIP ALL LOGICAL UNITS 

UNEQUIPjXl 

0, X3 

*-2,X3 

20B,X3 ZERO STATE 7 

ZEROPAGE,XI 
CMPAGE3,X3 

CMPAGE1,X3 SKIP IF CONTROL MODE 

0 »X 3 
3 7 B , X 3 
PHAN 0:2 

REMOVE,XI 

O CALL OESTRUCT 


9 9 , X 3 

UNEQUIP,XI 
9 , X 3 
f-2 , X3 

2 0 B, X 3 
ZEROPAGE,XI 
CMPAGES,X3 
CMPAGE1,X3 
0, X 3 
•*: ? r .. * s 


RF70 
RF71 

EQUIP,XI' 

59 

0,X1 

PHANNT 

0VL8UF 

4 

59 

a 

PHANNT 

OVLBUF+2,X2 

OVLBUF 

777178 

771778 

-11 
2 0B 

CMPAGE1 
*■ + 2 
PHANNT 
OVLBUF 
777778 

5 9 
0 

PHANNT 
ZEROPAGE,XI 
CMPAGE3 
UNEGUIP,X1 
5 9 


UNEQUIP ALL LUNS FOR GOOD LUCK 
PERHAPS A RESTART 


ZEROCORE STATE 7 


GET NAME Of QOS RFC TPHANTGM 

EQUIP THE OVERLAY 

SKIP IF NO ERRORS 
ASSUME OTHER NAME 


READ IN THE HEADER RECORD 


LOAD. THE STARTING ADDRESS 
LOAD THE OVERLAY FW A AND LENGTH 


COMPUTE PAGE NUMBER 
ADO IN ONE BANK 
SKIP IF TOO LARGE 


STARTING ADDRESS OF OVERLAY 
READ IN THE OVERLAY 


ZAP THE HEADER INFORMATION 


FREE THE 8 WORD BLOCK 
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CNTLMODE 


0 5 b 4 6 

u4 L0 0 0 0 0 


3 43 0 


ISE 

9,xi 

0 56 4 7 

01005647 

P 

3481 


UJP 

V 

0 565 0 

U12 0 0 0 0 0 


3 48 2 

3483 


UJP 

0, X2 

U 5 6 5.1 

■530 20053 


3 43 4 

PHAN ILL 

T M A ; 

T 2 ' 

0 5 652 

12000014 


3 48 5 


SHA 

Tv:: 

0 5653 

17 6 0 77 7 7 


3486 


ANA 

77 778 

0 5 65 4 

14707762 


3436+001 


ENQ 

776 28 

0 5655 

03405575 

P 

3486+002 


AQJ,EQ 

PHANLOG 

05656 

04407777 


3486+003 


ASE,S 

7777 8 

05 657 

01005657 

P 

3486+004 


UJP 

* 

0 5 66 0 

53020034 


3486+005 


TMA 

348 

0 5661 

17600777 


3486+006 


ANA 

777B 

0 5662 

04400000 


3436+007 


ASE,S 

0 

05663 

01005557 

P 

348 6+ 0 0 8 


UJP 

PHANTERM 

0 5664 

01005664 

P 

3486+009 

3486+010 


UJP 

■nr 


05665 

P 

'34S6+011 

PHANNT 

EQU 

* 

0 5 6 65 

14100002 


3486+012 


ENI 

UNEQUIP,XI 

i) 5 6 6 b 

71000073 


3486+013 


XREQ 

59 

G 5667 

25005671 

P 

3406+G14 


LDAQ 

8CDPHAN 

0 5 6 7 0 

01005612 

P 

3436+015 


UJP 

PHAN06 


0 5571 


47302145 


3493 


3CDPHAN BCD 


2,PHANTOM 


GO RUN THE OVERLAY 

GET THE ILLEGAL INSTRUCTION 


SB JR 

JUMP IF PHANTOM WANTS A RELOAD 
3KIF IF UCS 

HE GQESNFT DO THIS SORT OF THING 
GET TERMINAL NUMBER 

ALLOW GHOSTS TO VANISH 

BUT NOT PHANTOM 


GET RID OF GVERLAY NUN 

ASSUME A NAME 

TRY TO LOAD THIS ONE 



CD 
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V V V V V V 

t u- v v v r 'A v *A v -A 

v v v A* v r v v v v v v v v v v v v v v iA 'A v r v v v v t -v v v v y ■V- y- v ■v v -v v v v *'A -v -r v t ir v tA t y v v r 




3 4 9 6 

V 


V 

Vi-/ 



349 7 

V 

MURE BCD 

STRINGS AND CONSTANTS ? 




349 8 

v 


' * ' 





v r v v v v 

V V V V V V v- V "V* V 

V V V V 'A v V v V "V V V V *A V V V V -V* V V -A 'A V V V V 'A *A VV V "A Y -v V V -«* -v- V 7,- Y V "V- A? •*«' Y -V Y Y Y Y V Y 'A A»* 

0 



3 5 0 0 

3501 





05673 

23476460 

3502 

.■12 0 0 

8C0,C 

14,CPU TIME SEC.0 

O 

0 5 6 76 

33006623 

3 5 0 3 

M2 01 

3 G 0 'f C 

14,WC TIME MIN.0 

05.7 0 2 

43476051 

35 04 

M2 02 

B G 0 9 C 

14,LP RECORDS 0 


05705 

60004764 

85 0 5 

M 2 0 3 

BCD i C 

14,PUN RECORDS 0 


05711 

474 34 66 3 

3506 

M2 04 

806,0 

14,PLOT RECORDS 0 

o 

05714 

60002321 

350 7 

M2 05 

8CQ,C 

14,CARDS READ 0 

05720 

44636064 

3508 

M2 06 

BC D.-? C 

14,MT UNITS 0 

05 72 3 

60006247 

350 9 

M2 07 

BCOVC 

14,SPECIAL INPUT0 


0 5 7 2 7 

4 7 63 47 8 0 

3 5.1 Q 

MZD8 

8 G D » C 

14,FTP RECORDS 0 

o 

05732 

60005125 

3511 

H 2 9 9 

aco*c 

14 , REMOTE LP REC0 

05736 

23466263 

3512 

M 210 

8C0,C 

7,COST $0 

U5 737 

6 0 5 3 Q 0 4 4 

3513 . 

M211 

Fi 0 0 * C 

14,MFBLKS 0 


05 743 

00622622 

3514 

HZ 12 
M236 

8C D j C 

14,SFBLKS 0 

o 

05746 

60600060 

35144001 

BGD,£ 

7, BLKS 0 

05750 

60006051 

3516 

M2 37 

BCD , C 

6, REGS 0 

05752 

2567472-5 

3517 

M 2 2 5 

BC0,C 

17,EXPERIMENTAL OS30 


0 5 756 

0 0 314343. 

351.8 

HE 20 

BOO 5 C 

24,ILLEGAL JOB/USER NUMEER0 

o 

05 7 64 

00464725 

3519 

M2 21 

BCD* C 

15,OPERATOR ABORTO 

05770 

46472551 

- 3520 

M2 22 

BCD »C 

21,OPERATOR TERMINATIONS! 

0 5775 

00434627 

3 521 

M2 23 

BCD, G 

13,LOGIN PLEASED . 


060 0 0 

25002431 

3522 

M2 3 0 

BCD ,C 

19,DIRECTORY WITHHELD 0 

o 

06005 

00646225 

3527 

M2 35 

BCD * C 

14,USER DISK SEC-0 

06010 

25230024 

3528 

M240 

BCD 4C 

37,DIRECTORY IS TEMPORARILY UNAVAILABLE 0 

06022 

66215145 

3529 

M2 41 

BCD , C 

36,WARNING - OSS HILL END IN 2 MINUTES0 


060 33 

31456264 

353 0 

M2 24 

acc,c 

13,INSUFFICIENT TIMED 

o 

0 50 37 

25005125 

3531 

M 250 

BCD , G 

21, RENAME FAILURE—LUN 0 

0 6 0 4 4 

45600051 

■ 3532 

M2 51 

800,0 

■15, RENAME FAILURE3 

0 60 50 

25004364 

3532+001 

M2 52 

TEXT ,C 

/LUN IS NOT LP, PLOT, FTP, PUN, OR TASKQ/ 


06062 

■ 00242562 

-3532+00 2 

M2 53 

TEXT., G 

/DESTINATION UNKNOWN0/ 

o 

06067 

00444651 

3582+003 

M2 54 

TEXTVC 

/MORE TAPES ARE ALREADY IN USES/ 

0 60 76 

62250031 

3582+004 

M2 55 

TEXT,C 

/ILLEGAL ATTEMPT TO INCREASE TAPEMAX0/ 


353 3 
3534 


06110 

24216325 

3535 

3GD0ATE 

BCD 

■2 f DATE 


O 

0 6112 

26314325 

3586 

BGDFILE 

BCD 

2,FILE 


06114 

62316326 

3536+0Qi 

8C0SITE 

BCD 

i,SITE 



06115 

43476060 

353 7 

8CDLP 

BCD 

2 , LP 


O 

06117 

53243151 

3538 

THEFILE 

BCD 

2 , $DIR 


06121 

60 324546- 

3589 

NONE 

8.CO ' 

2-, <N0NE> 


06123 

684660 60 

35-41 

BCD TO 

BCD- - 

1,10 



06124 

60243151 

3542 

TITLE 

B CO¬ 

4* DIRECTORY AS Of 


o 

0 616 0 

00 00-0 006 

354 3 

06 

DEC 

6 


0 6131 

06054003 

3545 

8LOTC 

OCT 

06 054:0 03 

SLOT CHARACTERS FOR TTY JQB> 

o 



354.8 



TAPE DENSITY TABLE 

06182 

00000310 

3547 

DENSITY! 

OEC 

200 

0-200 BPI 

0 6183 

00001054 

3548 


OEC . 

556 

1 - 556 BPI 


06184 

00001440 

3549, 

355 0 


DEC 

800 

2-600 aPI 

o 

0 613 5 

14130043 

3651 

EOS 

ERli ' 

H24 0. 




o 


o 

o 

o 

o 

o 
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GNILMODE 






V V V V V V V V nr 

■v V V V V V V 

v v v v v v nr nr v vr v v v v v v 

v v nr v v nr nr nr nr nr nr nr v v v v nr nr nr nr nr nr nr nr nr nr nr nr nr v v n* v 

^ V v -v v V 




3 5 5 h 

V 




Y 




3 5 5 5 


SECTION 

TO PRINT THE USERS DIRECTORY 

Y 




35 5 6 

V 









V V - 1 ' V V *r V v 

v v v v nr n' v -r 

r v nr v v nr nr v nr r nr v v -r r v v 

v v nr v v v v V v nr *r v nr nr v y v y nr nr nr r y y y y y v y v y y y 

nr nr nr nr nr AF nr 


0 613/ 

P 

35 5 9 

DIRECTOR 

EQU 

-v- 

CLEAR PENDING CM REQUESTS 


06137 

77664000 


3560 


y fd 

A15/AIS,09/000 


0 614 0 

53020056 


3561 


TMA 

UOFLAGS 



06141 

17620000 


356 2 


ANA 

NHL OBIT 

CHECK FOR BEING WITHHELD 


0 6142 

03006145 

P 

3563 


AZJ,EQ 

□ OK 



0 6143 

14130002 


356 4 
3565 

OWTHLO ' 

ERM 

M23 0 

' DIRECTORY WITHHELD 


0 614 5 

146 0 00 0 U 


3 56 6 

OOK 

ENA 

a 



0 6146 

0420 a 437 


3567 


ISE 

3 7 B , X 2 



0 6147 

14477777 


3568 


£ N A t S 

777770 



0 615 0 

40 U01034 

C 

3569 


STA 

LONGFLAG 



0 6151 

14106154 

P 

3570 


ENI 

f +3tXI 



0 6152 

04200037 


3571 


ISE 

37B,X2 

SKIP IF END OF LINE 


06153 

01001413 

P 

3572 


UJP 

PACKER 

GET NEXT ITEM 


Li 615 4 

14600144 


35 7 3 


ENA 

TVUNIT 

USE LUN 100 FOR DEFUALT 


0 615 5 

13077747 


35 7 4 


SHAD 

-24 



0 615 6 

04200037 


35 75 


ISE 

3 7 6 , X 2 



06157 

01002177 

P 

3576 


UJP 

E15 

PARAMETER ERROR 


06160 

45001022 

c 

3577 


STAQ 

OFILENAM 

SAVE OUTPUT UNIT/NAME 


0 6161 

14100022 


3573 


ENI 

JGBNRECUX1 

REQUEST THE JOB NUMBER 


06162 

71000000 


3 579 


XREQ 

XREQ 



06163 

45001026 

G 

3530 


STAQ 

JOBUSER 

SAVE THE USERS JOB NUMBER 





3587 

nr nr nr v nr - 4 " nr v nr 

4 F 4r * 1 * nr'njk nr nr nr 

% nr V- ^F v *¥• * * * nr nr n- 

Jy* JyL ^ jyk Jy*. - 2 y*< Jyl JyL « 2 jJL jyl -yL Jjjjj* 

jgt 4 c, .jjt jy. 




3589 

nr* 




nF 




3590 

44 

THE SCRATCH PAGE IS INITIALIZED HERE 





3591 

41 

THE FOLLOWING IS STORED 

INTO THE SCRATCH PAGES 

* 




3592 

^GE TENT 

UJP 

IMPURE 


Y 




3593 

Y . . 

UJP 

GETENTL 


' nr 




3594 

* S T A 0 

UJP 

IMPURE 


nF' 




359 5 

nr 

UjP 

STA QL 






$ 5 9 6 

*0QUT 

UJP 

IMPURE 






3597 

nr 

UJP 

DOUTL 


nF 




3598 

-’DATE 

UJP 

IMPURE 


•nr 




3599 


UJP 

QATEL 


. -v 




360 0 

*SQCH 

UJP 

IMPURE 


*■ 




36 01 

’SQGH1 

SQCH 

IMPURE,XI 


* 




3602 

■T' 

IJI 

SQCH,XI 


* 




360 3 

- nr 









414 , 

nr nr nr nr nr nr 'r -nr 

nF* nr nr nr nr nf ^nr^nrnrnrnrnr nr'nr 

* * n* 4F 3F n? n- -V- * f* nr 8F nf nr ^ ¥ * nr * -V -r -r 4F * “ ■¥> n? * 

nr - 4r ”9* nr nr nF 




360 5 






0 6164 

20002655 

P 

3606 

DIR02 

LDA 

BIT18 ' 

UJP INSTRUCTION ■ 


0 6165 

21002655 

P 

■ 8607 


LDQ ■ 

SIT 18 



0 6166 

15706545 

P 

36 0 8 


. I NO. 

GETENTL 



0 6167 

45001005 

, G 

3 60 9 


STAQ 

GETENT 



06170 

15500020 


3610 


INQ 1 S 

STAQL-GETENTL 



06171 

45001007 

c 

3 611 


STAQ 

STAQ 



06172 

155 0 0 Q 0 5 


3612 


IN G »S 

DOUTL-STAQL 



0 6173 

45001011 

c 

3613 


STAQ 

DOUT 



0 6174 

15500006 


3 614 


IN Q »S 

OATEL-DOUTL 



0 6175 

45001013 

c 

3 615 


STAQ 

DATE 



06176 

40001015 

c 

3616 


STA 

SQCH 



0 6177 

25006563 

p 

3617 


. LOAQ 

PSQCH 



0 6200 

45001016 

G 

3616 


STAQ 

SQCH1 



0 62 01 

25006614 

P 

3619 


LDAQ 

PDATEWRD 



06202. 

45001020 

C 

3620 


STAQ 

OATEWORD 



0 6203 

14601055 

c 

3621 


ENA 

BUFFER 



0 62 04 

40001043 

c 

3622 


STA 

CA 



06205 

14600003 


3623 


ENA 

3 



0 6206 

40001050 

G 

3624 


STA 

LENG 



0 6207 

14600000 


3625 


ENA 

0 



0 6 210 

40001042 

c 

3626 


STA 

WC 



06211 

40001030 

c 

3627 


STA 

NCPL 



06212 

40001031 

c 

3b2 8 
3629 

7r 

STA 

NWPB 






363 0 

V 








3631 

r 

SECTION 

TO GET AND DECODE DIRECTORY 





3 63 2 

V 





06213 

25006117 

p 

3633 


LDAQ 

THEFILE 



06214 

5 3 420 0 5 2 


3 6 34 


TAM 

11 

PUT FILENAME INTO T1,T2 


06215 

53 410 0 53 


3635 


TQM 

T 2 



06216 

143U622Q 

p 

3 6 36 


ENI 

’ + 2 , X 3 
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CNTLHODE 


06217 

01003004 

U 2 50 6135 

P 

3637 , 

UJP 

eqsys , 

UoZGO 

P 

3637+001 

1JD 

h 0 0 , X1 

0 b 2 21 

04600012 


J 6 6 3 

ASE 

RAF 

06222 

01006135 

P 

3 64 0 

UJP 

EOS 

06223 

37002670 

P 

3641 

LP A 

IERBITS 

06 2.24 

03106135 

P ■ 

3642 

AZ J , ME 

E00 

06225 

14601051 

C 

3 643 

ENA 

RHE AO 

0 6226 

14700005 


3 644 

ENQ 

5 

06227 

74004634 

X 

3645 . 

READ 

SYSLUN 

06230 

12000006 


3646 

SHA 

23-AUOIT 

06231 

03306135 

p 

3 646 + 0.0 1 

AZJ,LT 

E 0 8 

06232 

04700000 


3648 

QSh 

0 

06233 

01006135 

p 

3649 

UJP 

EOS 

06234 

14601055 

c 

3650 

ENA 

DIR 

0 6235 

Z I Ll 0 i ilS 5 

c 

3 651 

LDQ 

DIR 

0 6 2 3 6 

05501750 


S 6 b 2 

QSG, S 

iQQQ 

0 6237 

05500001 


365 3 

QSG, S 

1 

0 624 0 

01006135 

p 

3654 

UJP 

EOS 

06241 

54201055 

c 

3655 

3 65 6 ¥ 

LDI 

OIR , X 2 

06242 

74006227 

X 

3 65 7 

READ 

SYSLUN 

06243 

0470 0 0 0 0 


365 8 

QSE 

0 

0 62.44 

01006135 

p 

3659 

UJP 

. EOS 

0 6 2 4 5 

12 0 Q 0 0 0 6 


3660 

SHA 

■23-AUBIT 

06246 

03306135 

p 

3 661 

A Z J j L T 

EOS 

06247 

1457777? 


3662 D2. 

ENQiS 

777778 

0 6250 

2 O'001026 

G 

3663. 

L 0 A 

JG8USER 

06251 

07301055 

c 

3664 

MTH 

□ IR,3 

06252 

01006662 

p 

366.5 

UJP 

04 

0 625 3 

25001026 

c 

3-666 

LDAQ 

JOBUSER 

0 6254 

33201055 

c 

3667 

SBAQ 

DIR, X2 ■ 

0 6 255 

13400000 


•366 3 

SCAQ 

0,0 

06256 

03306247 

p 

3669 

AZJjLT 

D2 

06257 

20201057 

c 

367 0 

LDA 

OIR+2,X2 

0 6 260 

1307774? 


3671 

S H A Q 

-24 

06261 

73006242 

X / ; 

3672 

SEEK 

SYSLUN 

0 6262 

12 Q 0 00 07 


367 3 

<?H A 

Z3-AERBIT 

06263 

0 3 3 0 613 5 

p 

3674 

AZJ»L.T 

E08 






•3r •¥*- *$> ^ ^ ■^r 

"T- *9* 




3677 

■v*- 





-3678 

* SECTION 

TO LOCATE THE 




367 9 

* ALL THE 

ENTRIES INTO 




36-8 0 







*Sr* 2$. 2$, jf. if* .3$. •¥’ r *§° 

*• V W * ¥ .♦■» * V -> V 

0 6 264 

21001050 

C 

3 682 
368 3 

05 LDQ 

LENG 

0 6 265 

14200000 


3 6 8 4 

ENI 

0 , X2 

Q 6 26 6 

14106270 

p 

3685 

..., ENI. 

•*.+ 2,Xi 

06267 

01006716 

P 

3 68 6 

UJP 

READ 

0 627 0 

20001050 

c 

3687 

LOA 

LENG - 

0 6271 

5374000Q 


368 8 

IAI 

X 3 

0 6272 

20377774 


3 68 9 

LDA 

- 3 * X 3 

0 6273 

40001050 

c 

369 0 

STA 

LENG 

06274 

' 25001026 

c 

3 691 

LOAD 

JOBUSER 

0 62 75 

333 77775 


3692 

SBAQ 

-2, X3 

0 6 2 7 6 

13400000 


3693 

SCAQ 

0,0 

0 6 277 

03306662 

p 

3 a 9 4 

AZJ,LT 

04 

0 63 0 0 

03106264 

p 

3 69 5 

AZ J ■»NE 

05 

0 53 01 

21001050- 

c 

3 69 6 

LDQ 

LENG 

06302 

15577774 


^ 3697 

INQ, S 

-3 

0 6 3 0 3 

41001050 

c 

369 8 

STQ 

LENG 

0 6 3 0 4 

14106330 

p 

3699 

EH I 

D60R ,X1 

0 63 05 

14200001 


3700 

ENI 

hX2 

0 6306 

05502711 


37 01 

QSG i S 

MAXRECSZ 

0 6 3 0 7 

01006716 

rj 

I 

3 7 02 

UJP 

READ 

06 310 

54101042 

c 

3 70 3 - 

LDI 

WC, XI 

0 6311 

11100000 

2001 

00 0 3704 

ECHA 

1000008 

06312 

40001025 

c 

3705 

STA 

DIR T1 

06313 

47 3 0 10 25 

O 

3 7 0 6 

STI 

DIRTi,X3 

0 6 314 

14300000 


3 7 07 

ENI 

0 , X 3 

06315 

01006320 

P 

3 7 0 8 

UJP 

T 20 R 

06316 

20401025 

c 

3 70 9 

LDA, I 

DIRTI 

0 6317 

40100000 


3710 

STA 

0 ,X1 

06320 

02506316 

p 

3711 

T2DR ■--':v v TJD-:/:7;'::' 

* - 2 , X1 

06321 

20001050 

■■■ G. 

3 712 

LDA 

LENG 

06322 

310 01U 42 

C 

3713 

sb a :: 

WC 



SKIP IF A RAF 
JUMP IF NOT A RAF 
CHECK FOR ABNORMAL/EOD 
JUMP IF ERROR EXISTS 


GET DATE AND LENGTH 
READ FIRST WORD 


CD 

0) 

o 

o 


JUMP IF NOT ENOUGH WORDS READ 
LENGTH OF DIRECTROYXS DIRECTRGY 


GET DIRECTORY LENGTH 
READ 

NOT ENOUGH WORDS 
ABNORMAL THEN 


SEARCH FOR J03 NUMBER 

NEGATIVE JOB NUMBER 

GET OUR JOB NUMBER 

SUBTRACT JOBUSER IN THE 'INDEX 

AQ2J 

CONTINUE. SEARCH 


CHECK FOR ADDRESS ERROR 
BAD NEWS 


JSjij *$*■ JgL o%jL <%£*■ djjtf* *2jp» «tgN V$a vym. Jj* ’*|1- 

* * 

JOB-USER ENTRY AND . READ * 

CORE. • * 


•¥> ~!r. ~<r <¥■ «!r -?* -9* 3r ^ -rf- 3r ^ -v- *?• ■¥' ^r- 3?- ' v- -«r tt- “V s *r- & 4P V 


LENGTH OF DATft*NEXT HEADER 


X3 POINTS TO EDO OF RECORD 
START OF NEXT HEADER... 
...IS LENGTH OF NEXT RECORD 

USERS JOBNO-JQBNO FOUND 

DONE, NO FILES 
NOT DONE 

FOUND, READ IN FILENAMES 
LENGTH OF FILENAMES 


INDICATE EXACT READ 
SKIP IF DIRECTORY TO LONG 

MOVE RECORDS IN BUFFER... 
...TO LOW CORE 

BUILD A HLT C (X3) ,X1 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


COMPUTE AMOUNT LEFT TO READ 
LESS AMOUNT ALREADY IN 


O 
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G 6 3 2 3 

13000030 


3 714 

SHAU 

24 

J b 3 2 4 

20001042 

C 

3715 

LD A 

HU 

06325 

74006261 

X 

3 716 

READ 

SYSLUN 

0 6 32 6 

04500000 


3717 

QSE,S 

0 

0 6327 

01006135 

P 

3718 

UJP 

EOS 


0 b 33 0 

P 

3719 

06OR EQU 


06330 

47301047 

C 

i. 3 72 0 

STI 

X3SAVE,X3 

0 6 3 31 

14306333 

P 

3721 

ENI 

*+Z*X3 

06332 

01003027 

P 

3722 

UJP 

UNEGSYS 


O 

O 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


CD 

LOW CORE ADDRESS OF NEXT WORD ® 

Q CAN NOT BE ZERO 

IF G IS NOT ZERO, SOMETHING IS BA 

EXIT IN A HURRY Q 

SAVE X3 FOR LATER 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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'«- V V V 
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rr> 





3725 

V 



X ■ ■ 

Uex 





3 726 

■nr 

EQUIP 

OUTPUT UNIT AND STATUS 

IT * 






3 72 7 

v :■ 





3 




3729 

v -v nr •V" 

T V V TV T V V T V V V 

V V V V V T V V V V V V V T "V '/• V V V V V V 

V V V V 'V* V V V V V V V V V *«' v V V V V V V V v V V T V V T V V V V T V 

Q 


Ob 3 3 3 

1461) 63 2 5 

X 

37 3 0 


ENA 

SYS LUN 




0 6 3 3 4 

4U001024 

G 

37 31 


STA 

LUN 



O 

0 6 3 3 5 

25001022 

c 

3732 


LDAQ 

OFl’LENAH 

CHECK FOR FILENAME 

Q 


0&336 

0300662b 

p 

3733 


AZJ ,EU 

E 3 

JUMP IF LUN 



0 6337 

5342U052 


3 734 


TAM 

T 1 



o 

0 6340 

53410053 


3736 


TQM 

T 2 


0 

06 341 

14306343 

p 

3736 


EMI 

* + 2 , X 3 


06342 

01003004 

p 

3 7 3 7 


UJP 

EQSYS 



0 634 3 

02506647 

p 

3738 


I JO 

E4, XI 





0 63 4 4 

p 

37.39 

17 

EQU 




o 

0 63 44 

05600014 


3 74 0 


AS 6 

12 

SKIP IF HARDWARE TYPE ERROR 

O 


0 6 345 

01006347 

p 

3741 


UJP 

* + 2 - 



0 6 346 

01002177 

p 

374 2 


UJP 

£15 

HARDWARE TYPE ERROR 


o 

06347 

53500000 


3 74 3 


T.AI 

XI 

HARDWARE TYPE TO XI 


0 6 35 Q 

54301024 

G 

3744 


L 01 

LUNVX3 

THE LUN FOR THE ERROR MESSAGE 

o 

06351 

03300217 

P 

3745 


AZJ,LT 

FPV 1 

JUMP IF FILE PROTECTED 


0 6 35 2 

10 GO 1034 

C 

3746 


SSH 

LONGFLAG 

SKIP IF LONG OUTPUT 


o 

0 635 3 

15100013 


3747 


INI 

11 ,XI 


o 

0 6 3 5 4 

20106667 

P 

3748 


L a A 

LNGH jXl 

GET LINE LENGTH 

06355 

03002177 

P 

3749 


AZJ 9 EQ 

£15 

SCREWY HARDWARE TYPE 


0 6356 

44001031 

0 

.3750 


SWA 

NHPB 

NUMBER OF WORDS PER BLOCK 


o 

0 & 3 5 7 

12077760 


3 751 


S H A 

-15 



0 6 36 0 

42004143 

€ 01030 3 

3 75 2 


SACH 

MCPl+3 

NUMBER OF CHARACTERS PER LINE 

47 O 

0 6361 

12U77765 


o i 5 o 


SHA ' 

-10 




06 362 

40001032 

c 

3754 


STA 

FVfLAG 

FIXED OF VARIABLE LENGTH RECORDS 



0 b 3 6 3 

1410636 5 

p 

3 7 5 5 


ENI 

*+2 * XI 

WRITE OUT CONTENTS OF OBUF SO 


o 

0 6364 

01001234 

p 

3 7 5 6 


UJP 

QUT 8 UF 

THAT IT HAY BE USED FOR A BUFFER 

o 

0 63 65 

54301047 

c 

37 57 


LDI 

X3SAVE,X3 

RESTORE X3 


0 636 6 

54101031 

c 

3758 


LOI 

.NVtPB,.Xi 

NUMBER OF WORDS PER BLOCK 



0 6 367 

20001515 

p 

3 7 5 9 ■ 


LDA 

BLANKS 



o 

0 6370 

0100&372 

p 

3760 


UJP 

2 


o 

06371 

4 0 10 0 407 

G : 

37&1 


STA 

QBUF» Xi 

BLANK FILL THE OUTPUT BUFFER 


0 6 3 7 2 

02506371 

P 

3762 


' I JO 

*-l,XI 




06373 

54101050 

C 

3763 


LDI' 

LENG ,Xi 



o 

06374 

05100001 


3764 


ISG 

i,:<i 

SKIP IF ENTRIES 

o 

0 6375 

01006143 

P 

3765 


UJP 

OWTHLD 

i ' : ' 



0 6 3 7 & 

1410 0 00 3 


3766 


EMI 

3,XI 

LENGTH OF TITLE 


0 

0 63 77 

20106124 

P 

3 76 7 


LDA 

TITLE,XI 



0 6 4 0 0 

40100407 

c 

3766 


STA 

QBUF,XI 

MOVE TITLE OR WITHHELD 

7 7 O 


0 6401 

02506377 

p 

376 9 


I JO 

*- 2 ,XI 



06402 

14100003 


3 7 7 § 


ENI 

3, XI 



o 

0 64 0 3 

20101051 

c 

3771 


LDA' ■ 

RHEADtXi 

MOVE THE HEADER TO 


06404 

40100413 

c 

3772 


STA 

QBUF +4,XI 

THE FIRST LINE Of OUTPUT 

0 

0 64 0 5 

02506403 

•P 

37 73 


■ 13D- 

XI. 



6 6406 

14600040 


.3174 


E H A 

32 . 




0 6407 

40001033 

c 

3 775 


■ STA 

CNCP 8 

CURRENT NUMBER OF CHARACTERS IN B 


o 

06410 

54101031 

0 

3 776 


LDI 

NWPBtXl 


o 

06411 

04100372 


3 77? 


ISE 

TVBUFL,XI 

SKIP IF TV 


06412 

01006471 

p 

3778 


UJP 

Ji 2 . : . 

WRITE OUT SLOCK 


o 

0 6413 

146 0 U 0 62 


3779 


ENA 

5 0 

LENGTH OF TV LINE 


0 6414 

40001033 

c 

3780 


STA 

CNCPB 

CURRENT NUMBER OF CHARACTERS IN B 

o 

0 6415 

00701005 

c 

3781 

J 8 

RTJ 

GETENT 

GET 4 WORD ENTRY 


0 6416 

11002034 

C . 0 04 0 7 0. 

3782 


ECHA 

QBUF 




0 & 4i7 

30001033 

C 

3 78 <3 


ADA 

CNCPB 



o 

0 6420 

46001016 

G 

3784 


SCHA 

SQCH1 


o 

06421 

14100001 


3785 


ENI 

1, XI 



06422 

25001035 

C 

3 786 


LDAQ 

ENTRY+FILENAME 

GET FILENAME 



0 642 3 

0070100? 

c 

3 78 7 


RTJ 

ST A Q 

OUTPUT FILE NAME 


o 

0 6424 

10001034 

c 

3783 


SSH 

LONGFLAG 

SKIP IF LONG 

o 

06425 

01006461 

p 

3789 


UJP 

J9 

JUMP IF SHORT 


0 6 426 

14100012 


3 79 0 


ENI 

10,Xi ■ 




06427 

14700020 


3791 


ENQ 

2 0 B 

PLUS 


o 

0 643 a 

20001037 

c 

3 79 2 


LDA 

ENTRY+PROTECT 

SIGN BIT SAYS PROTECTED 

o 

06431 

03206433 

p 

3793 


AZJ,GE 

*+2 

SKIP IF NOT PROTECTED 



0 643 2 

00701015 

c 

3794 


RTJ 

SQCH 

STORE PLUS AWAY 



0 6433 

14100013 


3795 


ENI 

11, XI 



o 

0 6 4 3 4 

14700051 


3796 


ENQ 

518 

R IS FOR RAF 

G 

06435 

20001037 

c 

3 79 7 


LDA 

ENTRY+RAFBIT 



06436 

12000001 


379 8 


SHA 

1 

GET BIT THAT SAYS RAF 



0 6437' 

03206441 

p 

3 799 


AZJ»Gt 

”'+ 2 

SKIP IF NOT RAF 


o 

0 644Q 

007.01015 

c 

3800 


RTJ 

SQCH 


o 

'0 6441 

25001037 

c 

38 01 


LDAQ 

ENTRY+LENGTH 


o 

0 644 2 

12077757 


3802 


SHA 

-16 

EXTRACT THE LENGTH 

" ■ ;';G 
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U 6 4 4 3 

17600077 



3 8 0 3 


ANA 

77B 


0 o444 

130UUU1U 



3 8 0 4 


SHAQ 

3 

LENGTH IN A 

0 6 44 5 

14100021 



3805 


ENI 

17 , X1 

LAST COLUMN 

0 6446 

00701011 

C 


3 8 0 6 


RTJ 

GOUT 

OUTPUT DECIMAL 

0 6447 

11177777 


37777 3 

3807 


ECHA 

1777770 

MASK 

0 645 0 

37001037 

c 


3 80 8 


LPA 

ENTRY+CREATE 

CREATE DATE 

06451 

13000030 



3809 


SHAQ 

24 

DATE TO Q 

06452 

14100023 



3810 


ENI 

19 X1 


U 6 4 5 3 

00701013 

c 


3811 


RTJ 

GATE 


0 645 4 

11177777 


37777 3 

3812 


ECHA 

1777773 

MASK 

0 6455 

37001040 

c 


3818 


LPA 

ENTRY+LCHAMGE 

LAST CHANGE DATE 

0 6456 

13000030 



8814 


SHAQ 

24 

DATE TO Q 

0 645 7 

14100034 



3815 


E NI 

28,XI 


0 6450 

00701013 

c 


3816 


RTJ 

DATE 


0 6461 

20001030 

c 


3 817 

J9 

LOA 

NCFL 

NUMBER OF CHARACTERS PER LINE 

0 6462 

30001033 

G 


3818 


ADA 

CNCpa 

CURRENT NUMBER OF CHARACTERS 

0 6463 

40001033 

c 


3819 

Jll 

STA 

CNCPB 

CURRENT NUMBER OF CHAR/S ON LINE 

0 6464 

15600003 



3820 


XNA 

3 

ROUND UP 

0 6465 

12077775 



3821 


S H A 

~2 

NUMBER OF WOROS 

0 6466 

21 aU1031 

c 


■ 3822 


LOQ 

N WPS 

NUMBER OF WORDS PER BLOCK 

0 6467 

03706415 

p 


3823 


AQJ»LT 

J8 

MORE ROOM, MAKE MORE OUTPUT 


06470 

p 


3824 

J14 

EQU 

* 


0 6470 

53500000 



3825 


T AI 

Xi 

LENGTH IN WORDS TO XI 

06471 

20001515 

p 


3826 

J12 

■ LOA 

BLANKS 


06472 

01006475 

p 


3827 


UJP 

J13 


0 6473 

211U0407 

c 


3828 


LDQ 

OBUF,XI 


06474 

03506478 

p 


38.29 


AQJ,ME. 

* + 2 

CHECK FOR TRAILING BLANKS 

06475 

02506473 

p 


3880 

J13 

1 J D 



0 6476 

53100000 



3881 


IIA 

i:iXi.i ■: ■•■■■■ ■■ 


0 64 77 

15 6 0 Li 0 01 



3832 


INA 

1 

HAKE LENGTH 

0 6500 

10001032 

G 


3833 


SSH 

FVFLAG 

SKIP IF VARIABLE LENGTH 

0 6 5 U 1 

20001031 

c 


3 8 3 4 


LOA . 

HWP8 

LENGTH OF SLOCK 

0 65 0 2 

13000030 



3835 


SHAQ 

24 


0 6503 

47331047 

L® 


383b 


STI 

X3SA¥E,X3 

SAVE X3 

0 6 5 0 4 

04700372 



88 37 


.Q.S.E. 

TVBUFL 

SKIP IF A TV 

06505 

010065.15 

P" 


383 8 


UJP 

: J13. ■'ll ■ 

JUMP IF NOT A TV 

06506 

53020044 



3839: 


IMA 1 

IO; 

INDICATE THAT THE OUTPUT 

0 6507 

1 / k 7 7 6 7 7 



384 0 


ANA j : S 

■'-OBUF BIT 

BUFFER IS FULL 

06510 

i b & 0 O' 1 0 0 



■ 3841 


KOA : : 7 . 

; GBUF8II; .ll'-.. ' 


0 6511 

3o42CiU44 



3842 


TAM 

IO 


0 6512 

40000512 

1# 


8843 


STA 

OBUFP 

SET OBUFP TO NON-ZERO 

0 6513 

1410 6 5.2 0 

o 

r 


3 844 


ENI 

J16 »,X 1 

RETURN -ADDRESS' 

0 6514 

01001234 

p 

s 


3845 


.UJP. .... 

OUT8UF 


06515 

14600405 

C 


•5 8 4 6 

J15 

ENA • - 

OBUF : : 


0 5 516 

5 4 3 0 .!. ;J.? 4 

c : 


3847 


. LDI , . i. 

■LUN4X-3. . : 

LUN TO X3 CA MUST) 

0 6517 

71> 3 U 0 0 0 0 



3 848 


.■...WRITE' .' 

3 ,X3 ^ 


0 652 0 

543 01u 24 



" 3 84.3. 

J16 

-.tiDI." ' 

L U N , X 5 : : . 

THE LUN MUST 3E IN 'X 3 

0 65 21 

77664000 



S 85 0 


. vfo 

M5/A1S,09/000 

GET ANY PENDING INTERRUPT CODE 

0 65.22 

1)460 0(3 0 3 



3851. 


AS E 

RTIMECUT-DECODE 

SKIP IF IT IS A TIME GUT 

0 6523 

' 031.0 0 0 44 

p 


3852 


AZJfNh 

REENTER. 

JUMP IF AN INTERRUPT REQUEST 

06524 

5 4 3 6 i G 4 7 

c 


385 3; ... . 


L 01 

X.3S.A.VE, X3 

. RESTORE X 3.. 

0 652 5 

54101031 

c 


-3 854 


LDI 

WWPB,Xi 

LENGTH OF OUTPUT BLOCK 

06526 

20001515 

p 


3855 


LOA 

■ BLANKS ■ 


06527 

010 065 31. 

"Q 


3856 


UJP 

*+2 


0 653 0 

4010 0.4 0 7 

■■ b/.' 


3857 


. STA 

OBUF, XI. 

BLANK FILL 

065 31 

02506530 

P 


' 3 85 8 


IJ D ' 

•*' — .1 , X1 


06532 

14600000 



3 8.59 


ENA 

0 

.INDICATE NO INFO IN BUFFER 

0 6533 

5410105 0: 

c 


3 86 0 


LDI 

LENG»XI 


0 65 34 

02505482 

p 


3861. 


.. x J O. . 

J 11, X i 

JUMP SACK IF MORE ENTRIES 

0 6535 

05300000 

p 


3862 


ISG 

Z, X 3 ■ 

WHICH BUFFER AM I USING 

06536 

0100.6540 

p 


386 3 


UJP 

*+z 


06537 

01000424 

p 


3 864 


UJP 

HC . 

EXIT IF ML DONE 

0 654 0 

14100007 



3865 


ENI .. . 

ZEROPAGEjXl 


0 65 Hi 

71000020 



3 86 6 


XREQ 

16 

BY-BY 100000-103777 

06542 

14100007 



386 7 


ENI 

ZEROPAGE,XI 


06543 

71000021 



3868 


XREQ 

17 

8Y-BY 104008-107777 

0 6544 

01000424 

p 


3869 


UJP 

HC 

AND RETURN TO CONTROL 





3 8 71 

v 

ROUTINE TO GET * 

t WORD ENTRY 


0 65 4 6 

P 

387 2 

GETENTL ECU 



0 65 45 

20001033 

C 

38 73 

LOA 

CNCPB 


0 66 46 

12077775 


38/4 

SHA 

- ? 


06547 

15600003 


3 8 75 

INA 


ROUND UPWARD 

0 655 0 

54101050 

c 

3 8 76 

LDI 

LENGjXl 


0 6551 

05100001 


38 7 7 

ISG 

1,X1 

SKIP IF MORE INFO 

0 6552 

01006470 

P 

38 78 

UJP 

J 14 

WRITE PARTIAL RECORD 
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ASSEMBLER./0 

S3 VI.0 

09/24/74 1 

.604 

PAGE 

8 0 

CNTL 

MODE 




L) 6 5 5 3 

G b 5 5 4 

253 0 GO 0 0 
45001035 

C 



3879 

3 6 8 0 



LOAD 

ST A a 

FILENAME,X3 

ENTRY + FILENAME 


‘ 0 

0 655 5 

25300002 




3881 



LOAD 

CREATE,X3 

PROTECT BIT, RAF BIT, AND LENGTH. 


0 6 5 6 6 

45001037 

C 



3882 



ST A Q 

ENTRY+CREATE 


0 

0 654 7 

15300004 




3 88 3 



INI 

44X3 

POINT TO NEXT ENTRY 

0 6560 

15177773 




3884 



INI 

-4,XI 


0 6561 

47101050 

C 



388 5 



STI 

LEND, XI ; .'- 



06562 

01001005 

c 



3 88 6 



UJP 

GETENT 


o 






3888 


-v* 


BDF LIKE ROUTINES 


; 0 


0 6563 

p 



388 9 


PSQGH 

EQU 

V V. 

XI IS CHARACTER POSITION 


0 656 3 

43777777 


7 7777 

3 

3 89 0 



SQCH 

XI 

POINTS TO CURRENT LINE 


0 6564 

02101015 

c 



3 891 



IJI 

SQCH,XI 

EXIT 



06565 

p 



3 89 2 
389 3 


-7- 

STftQL 

EQU 


XI IS FIRST CHARACTER POSITION 

O 

0 6 5 6 5 

14200007 




3894 


ENI 

7 , X 2 

CONTENT Of AQ IS PUT INTO... 


0 65 6 6 

13000006 




3 895 



SHAQ 

6 

...THE OUTPUT SUFFER 


05557 

00701015 

c 



3896 



' RTJ 

SQCH 


o 

0 6570 

02606566 

p 



3897 



I JO 

+ - 2 , X 2 


s,/ 

0 6571 

010 0 10 0 7 

c 



3898 

"j* q o n 



UJP 

STAG 

RETURN 



06572 

p 



6 o y 3 
390 0 


DOUTL 

EQU 


XI IS LAST CHARACTER POSITION 

o 

06572 

13077747 




3991 


DOUTi 

SHAQ 

— 24 

DECIMAL CONTENTS OF A IS... 


0 6573 

51002643 

p 



39 02 



OVA 

O10 

...PUT INTO THE OUTPUT BUFFER 


065 74 

00701015 

c 



3903 



RTJ 

SQCH 



0 65 7 5 

15177775 




39 0 4 



INI 

-2, XI 


■000 O 

0 65 76 

03001011 

c 



3905 



AZJ,EQ 

□ OUT 

EXIT 


0 6577 

01006572 

p 



3906 

3907 


•v* 

UJP 

DOUTI 

MORE TO PRINT 



06600 

p 



39 0 3 


DA TEL 

EQU 


Q CONTAINS DATE, RT. JUSTIFIED 

O 

0 6600 

47101044 

G 



390 9 



STI 

LG2 » XI 

YEAR-7 BITS, MONTH-4 BITS, DAY-5 

06601 

14100005 




3910 



ENI 

5 s X.l 

XI CONTAINS FIRST CHARACTER POSIT 


0 66 0 2 

224330 70 

P 

0 6616 

0 

3911 


LOi 

LACH 

CAODTjXl 


o 

0 6603 

53600000 




3912 



TAI 

X2 


06604 

14600000 




3915 



ENA 

0 


0 66 0 5 

51106620 

P 



3914 



OVA 

01VTAB,Xi 



0 6606 

42404100 

c 

01020 

0 

3915 



SAGH 

DA TEWORD,X2 


0 

0 6607 

02506602 

p 



3916 



1 JO 

L 01, X1, 


06610 

25001020 

L 



3917 



LDAQ 

DATEWORD 

RESTORE XI 

0 6611 

54101044 

C 



3918 



LDI 

LD2,XI 


06612 

00701007 

c 



3919 



RTJ 

STAG 


o 

06613 

01001013 

c 



392 0 

3921 

3922 


-r- 

UJP 

DATE 

EXIT 

0 66X4 

44446124 





POATEHR 

D SCO 

2,MH/QD/YY 



0 6616 

04 0 3 G i 0 0 




392 3' 


CAOOT 

BGO,C 

6,431076 


: O 

0 662 0 

00000001 




3924 


OIVTAB 

DEC . 

1 


06621 

00000012 




3 52 5 



DEC 

10 


0 6b22 

0 0 0 0 0 0 4 0 




3926 



OEC 

2+5 



0 66 23 

00000500 




3927 



DEC 

10+2+5 



066,24 

00001000 




3928 



DEC 

2 + 9 


066 25 

00012000 




3929 
393 0 



DEC 

10+2+9 


0 6626 

41001024 

0 



3931 

3932 


£ 3 

STQ 

LUN 


o 

06627 

04505523 

X 



3932+1 

301 


Q SE , S 

LPUNIT 

SKIP IF STANDARD OUTPUT 

Ob 6 3 0 

0 55 0 0145 




3 933 



QSGt S 

TVUNIT+1 



0 66 31 

05500000 




3934 



QSG,S 

0 


o 

0 663 2 

010Q2177 

p 



3 9 3 5 



UJP 

■ E15 


0 6633 

14700000 




3 93 6 



ENQ 

STATUS 

PUT THE LUN IN X3 JUST INCASE 

0 6634 

54301024 

c 



3937 



LDI 

LUN,X3 


0 6635 

72300000 



3938 



CNTL 

0 , X3 

WE GET A TAPE DRIVE FAILURE 

0 

0 663 6 

0 310 6643 

p 



3 93 9 



AZJ ,N£ 

T12 


0 6 6 3 7 

25006112 

p 



3940 



LDAQ 

8COFILE 


0 5 6 h 0 

14100003 




3941 



ENI 

EQUIP,XI 



0 6641 

71401024 

02503173 

c 



3942 



XREQ, I 

LUN : V ; 

ATTEMPT TO EQUIP A FILE 


0 6642 

p 



3943 



I JO 

EQERR,XI 

EQUIP ERROR 

o 


0 6643 

p 



3944 


112 

EQU 

■v* 


06643 

04600004 




3945 



ASE 

RDR 

SKIP IF A CARD READER 


0 6644 

01006344 

p 



3946 



UJP 

17 


o 

0 6645 

14706627 

X 



3 94 7 



ENQ 

LPUNIT 

IF READER ON 100, USE 61 

, 06646 

01006626 

p 



3948 

3949 


-if. 

UJP 

E3 

GET STATUS 


0 664 7 

04100001 




395 0 


E4 

ISE 

1, X1 

SKIP IF NAME NOT FOUND 

0 

0 665 0 

01003173 

p 



3 951 



UJP 

EQERR 

PROBABLY BUSY 

G 6651 

25006112 

p 



3952 



LDAQ 

BCDFILE 

GET BCD FOR /FILE* 

0 6652 

14100003 




3953 



EMI 

EQUIP,XI 




o 
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3960 

3961 * 

3962 04 

3963 

3964 

3965 

3966 


XREQ 

LDAU 

SYSLUN 

OFILENAM 

TRY TO EQUIP A FILE 

NOW TRY TO SAVE IT 

E NI 

SAVE-, XI 


XREQ 

SYSLUN 


IJD 

SAV ERRS,Xl 

PROBABLY NO SAVE SPACE 

EH A 


FILE TYPE 

UJP 

T7 


ENI 

N0NE.X3 


EH A 

4 

ONE ENTRY 

ST A 

LENS 


ST A 

LQNGFLAG 

INDICATE SHORT ENTRIES 

UJP 

060R 



06653 71006333 X 

06654 25001022 C 

0 6655 1410 GO 01 

06656 71006653 X 

06657 02502152 P 

U 6 5 60 146 0 0 0 01 

06661 01006344 P 

06662 14306121 P 

06663 14600004 

06664 40001050 C 

06665 40001034 C 

06666 01006330 P 
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V V V V *«• V * 


V -«* V '«■ V V V ' 


-i* v r -*• '«* v v v v ' 


* V V V V V V -v - 


OUTV ENTRIES HAVE FORH Pi,P2,P3 

Pi IS i FOR VARIABLE LENGTH RECORDS 
P2 IS LINE LENGTH IN CHARACTERS 
P3 IS BLOCK LENGTH IN WORDS 

THE FIRST TABLE IS FOR LONG OUTPUT 


* # a* # -s 
* 
* 
* 
'r 
* 




3977 

t '<* -v v r v v v v 

V V T V V “»* V V 

V V V V V V V -V V V V 



39 7 8 


M A C R 0 

, , p 



3979 


NAME 

OUTV 



3980 


VFO . 

Ai/$P(1) 



3981 

3932 


END 



06667 P 

398 3 

LNGH 

EQU 

* 0 “ 



39.34 

*»* 

0-UNDEFINED 

0 66 6 7 

00000000 

398 5 


OCT 

a 



393 6 


1-FILE 


0 6670 

45000012 

3987 


OUTV 

1,40,10 



3988 

~r 

2-LP 


0 66 71 

45400041 

398 9 


OUTV 

i,44,33 



3 99 0 


3-PUN 


06672 

45000024 

3991 


OUTV 

1,40,20 



3992 

•v- 

4-CARD 

READER 

06673 

00000000 

3993 


OCT 

0 



3994 

-v* 

5-HAG TAPE 

0 66 74 

45000012 

3995 


OUTV 

1,40,10 



3996 

V 

6-TELETYPE 

0 66 75 

45000012 

3997 


OUTV 

1,40,10 



3998 


7-PLOT 


0 6676 

OUOUOOOO 

3999 


OCT 

0 



4000 


8-NULL 


06677 

00000000 

40 01 


OCT 

0 



4002 

•v- 

9-TV 


0 6700 

06200372 

4 0 03 


OUTV 

0,50,250 



4004 

41 

10-RAF 


0 6 7 01 

05000012 

4 005 


OUTV 

0,40,10 



40 0 6 

■v’ 

11-TASK 

V 0-UNQEFINi 

06702 

00Q00000 

4 0 *3 1 


OCT 

0 



40 08 

.41 

1-FILE 


0 6703 

41200012 

4009 


OUTV 

1,10,10 



4 010 


2-LP 


06 7 04 

41200036 

4011 


OUTV 

1,10,33 



4012 

-*3* 

3-PUN 


0 67 05 

41200024 

4013 


OUTV 

1,10,20 



4014 


4-CARD 

READER 

0 6 7 06 

0 0 0 0 0 0 0 0 

4015 


OCT 

Q 



4 016 


5 — MT 


0 6707 

41200012 

4017 


OUTV 

1,10,10 



4818 


6-TELETYPE 

0 6710 

41200017 

4019 


OUTV 

1,10,15 



4020 


7-PLOT 


06711 

00000000 

4 021 


OCT 

0 



413 22 : 

T 

8-NULL 


0 6 712 

00000000 

4 0 2 3 


OCT 

0 



4024 


9-TV 


06713 

01200372 

4 0 2 5 


OUTV 

0,10,250 



4026 

* 

10-RAF 


0 6714 

01200012 

402 7 


OUTV 

0,10,10 



4 02 8 

*<r 

11-TASK 


0 6715 

00000000 

4 0 29 
4030 

V 

OCT 

0 



4031 

V 





4032 

4 0 3 3 

4034 

4035 





00072 

4036 

CLUN 

EQU 

58 



4037 

4038 

v- 




01031 C 

4039 

4 04 0 


COMMON 



01005 C 

4041 

4 04 2 


QRGR 

SCRATCH 



4 0 43 

V 


SUBROUTI 

010 05 


40 44 

GETENT 

6SS 

2 

01007 


4 045 

ST AQ 

BSS 

2 

01011 


4 046 

BOUT 

BSS 

2 


V V V -4* 'r '.* -V* “4* V 


-V- V •V’ V Y V ' 


’ V V -v v -«* 


• V T V V Y T ; 


CREATE UNIT FOR $ FILE 


0 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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CD 

01013 



4 04 7 

DATE 

BSS 

p 


0 1U15 



4 04 6 

SQCH 

BSS 

3 




01016 

C 

4049 
405 0 

SQCHi 

EQU 

SQCH.+ 1 


O 

01020 



4051 

DATEWGRQ 

BSS 

2 


01022 

000 0 0 0 0 0 


4052 

OFILENAM 

BCD 

2, OQQOOOOQ 



010 24 

000 GUI44 


4 05 3 

L U N 

DEC 

100 

DEFAULT UNIT 


01025 



4 04 

0IRT1 

ass 

1 

HLT IMPURE ,1 

o 

01026 

60606060 


4 05 5 

JG3USER 

BCD 

2 ? 

01030 



4056 

NCPL 

BSS 

1 

NUMBER CHARACTERS PER LINE 


01031 



4 057 

n w p a 

BSS 

1 

NUMBER OF WORDS PER BLOCK 

o 

010 32 



4058 

FVFLAG 

BSS 

1 

FIXEO/VARIABLE LENGTH RECORDS 

01033 

00000000 


4 05 9 

CNCPO 

OGT 

0 

CURRENT NUMBER Of CHARTS IN BLOCK 

01034 

00000000 


4 06 0 

LGNGFLAG 

OCT 

0 

-0 IF LONG ENTRIES DESIRED 


01035 



4 0 61 

ENTRY 

BSS 

4 

STORAGE FOR ONE DATA ELEMENT 

o 


0 00 0 0 


4 062 

FILENAME 

EQU 

0 

FIRST TWO WORDS 


00002 


40 6 3 

PROTECT 

EQU . 

2 

BIT 23 


0 0 0 0 2 


4 0 64 

RAF8IT 

EQU 

. 2 

BIT 22 



0 0 0 02 


4 06 6 

LENGTH 

EQU 

2 

BITS 21-15, AND 23-15 OF NEXT WOR 

o 


0 0 0 0 2 


4 066 

CREATE 

EQU 

2 

SITS 14-0 


0 0 0 0 3 


4 06 7 

LCHANGE 

EQU . 

3 

SITS 14-0 

01041 



4 068 

. N .. 

BSS 

i 



01042 

00000000 


4069 

WC 

OCT 

0 



01043 

00001055 


' 4 07 0 

GA 

VFQ 

■ 09/0.0 0 » Ai5/BUFFER 


o 

010 44 



4071 

102 

BSS 

1 



01045 



4 0/2 

R2 

BSS 

■ j 

JL 



01046 



4 07 3 

R5 

BSS 

1 


o 

01047 



4074 

X3SAVE 

BSS 

1 



00252 


4075 

8LKSIZ 

EQU 

17 0 

THIRD OF FILE BLOCK 

0105 0 

0U000003 


'4076 

LEMG 

OCT 

3 

INITIAL RECORD PLUS NEXT HEADER 


01051 



4077 

RHEAD 

BSS 

4 


o 


01055 

c 

4078 

OIR 

EQU 

V- 



Q1Q55 

c 

4079 

SUFFER 

EQU 

* 



0 2 711 


4080 

MAXRECSZ 

EQU 

C0MM0.N+3777B-BUFFER- 

■9 USE LOTI CORE IF MORE... 





41131 
408 2 




...THAN MAXRECSZ CORE NEEDED. 

o 


06716 

p 

4083 


RRG 




o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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414 0 

V 






4141 

V 

ROUTINE 

TO READ AND LOCATE RAF RECORDS 



414 2 


ENTER WITH RECORD LENGTH IN Q 



4143 


RETURNS 

WITH ADDRESS IN 

A AND X3 



4144 

r, 

PUT THE 

RETURN ADDRESS 

IN XI ANO LEAVE X2 



4145 


NON-ZERO 

TO INDICATE AM 

EXACT-LENGTH REQUEST. 



4146 








rr tv ~r 
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5r y v v v v v t v t v 
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414 8 
4149 




„ 

41001041 

G 

415 0 

READ 

SIQ 

N 


20001042 

C 

4151 


> LOA 

WC 


0 o o U 6 7 5 6 

P 

4152 


AQJ,GE 

Ri 

JUMP IF RECORDS ALL IN CORE 

0 3 0 0 6 7 3 4 

P 

4153 


AZJ,EQ 

R3 

JUMP IF NO WORDS IN CORE 

11300000 

o 0 0 0 Q 0 

4154 


EG HA 

3 0 0 000B 

SOME RECORDS NEED TO BE MOVED 

30001043 

c 

4155 


ADA 

CA 

ADDRESS OF SOURCE FIELD 

40001045 

c 

4156 


5 T A 

R2 

STORE IN TEMP 

2 0 0 01042 

c 

415 7 


LOA 

WC 

GET NUMBER .Of WORDS TO MOVE 

14300000 


4158 


EH I 

0,X3 


21401045 

c 

4159 

R20R- 

LDQ , I 

R2 

MOVE WC WORDS FROM CA... 

41301055 

c 

4160 


STQ 

BUFFER-, X3 

...TO BUFFER 

15300001 


4161 


INI 

1 ,X3 


15477776 


416 2 


IN A i S 

-1 


03106727 

p 

416 3 
4164 


AZJ, NE 

R2CR 


20001041 

c 

416.5 

R3 

LOA 

N 


31001042 

G 

4166 


SBA 

WC 

NUMBER REQUESTED-NUMBER IN CORE 

02606741 

P 

4167 


IJO 

EXACT,X2 

JUMP IF EXACT READ REQUEST 

054QU252 


4163 


ASG ,S 

8LKSI.Z 

SKIP IF REQUEST LARGE ENOUGH 

14600252 


4169 


ENA 

8LKSIZ 


21001042 

c 

4170 

EXACT 

LOG 

WC 

OLD HUMBER OF WORDS IN CORE 

34001042 

G 

4171 


RAO 

WC 

NEW NUMBER IN WC 

40001046 

G 

4172 


STA 

R5 

REMEMBER LENGTH REQUESTED 

13000030 


■4173 


SHAO 

24 


15601055 

G 

4174 


IN A 

SUFFER 

ADDRESS OF RECORD 

74006656 

X 

4175 


READ 

SY5LUN 


12000006 


4176 


SHA 

23-AUBIT 


03300424 

P 

4177 


AZJiLT 

MO 


13000030 


4178 


SHAG 

24 


31001046 

c 

4179 • 


SBA 

• R5 


03000424 

p 

413 0 


AZJ »EQ 

MC 


14601055 

c 

4131 


ENA 

SUFFER 


4 0 0 01U 4 3 

c 

4182 


STA 

CA 

ADDRESS OF FIRST WORD 

24001041 

c 

4183 

Ri 

LG A 

N . 

-NUMBER REQUESTED 

34001042 

C; 

4134 


RAO 

WC 

REDUCE WORD COUNT BY NUMBER. REQUES 

20001043 

. L? 

4185. 


LOA 

CA 


30001041 

c ■ 

4186 


ADA 

H 

NEW MEMORY ADDRESS GF RECORD 

40001043 

c 

4187 


STA 

CA 


31001041 

C 

' 418 8 


• S8A 

N 

START OF RECORD 

5 3 7 0 0 0 2 0 


418 9 


T AI 

X3 


01100000 


4190 


UJP 

0 , X1 

RETURN 


At At At As At At At At 
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4193 

v 






4194 

; r 

LUNL1STR 





4195 

* 


O j 
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4197 




0 6 766 

14106770 

P 

419 8 

LUNLIST 

R ENI 


0 6767 

01001413 

P 

4199 


UJP 

o 

06770 

01006773 

P 

4200 


UJP 


0 6771 

01002177 

P 

4201 


UJP 


06772 

01002177 

F 

4202 


UJP 


06773 

77664000 


42 0 3 


VFD 

o 

0 6 774 

14200000 


42 0 4 


ENI 


06 7 75 

14700000 


420 5 

LL 0 2 

ENQ 


0 6 7 76 

53200000 


■ - % d Cl G 


TIA 


0 6 777 

53700000 


4207 


TAI 

o 

0 7 0 0 0 

72200000 


4208 


CNTL 


0 7001 

03107005 

p 

4209 


AZJ,NE 


0 70 0.2 

10200156 


4209+31 

31 LL 03 

ISI 


0 7 0 0 3 

01006775 

p 

-4211 


UJP 

o 

0 7 0 0 4 

01004074 

p 

4212 


UJP 


070 05 

53420053 


..Htiu 

4214 

LL 04 

TAM. 


0 7 0 0 6 

53200000 


4215 


TIA 

o 

0 70 07 

5 3 6 3 U 0 5 4 


4 2. 16 


TIM 


0 7010 

14200093 


421 7 


ENI 


0 7 011 

14107013 

p 

4218 


ENI 


0 7012 

01005200 

p 

4 219 


7 . UJP ■7 ; 7:\. 

o 

0 7013 

14607015 

p 

4 22:0 


ENA 

0 7014 

01007024 

. p’. 

4221 


UJP 



0 70 15 

p 

4222 

LL 0 7 

EQU 


0 7015 

141G 7917 

p 

■ 422:3 


ENI 

o 

0 7016 

01001141 

p 

4224 


UJP. . . 

07017 

77664 0 0 0 


4 225 


VFD 


0 7 020 

0 310 0 0 4-4 

r 

4226 


,AZJ.*N.E 


07021 

53230054 


4227 


I MI' ... 

o 

0 7 0 2 2 

01007002 

Q 

4228 


UJP . 


O 


o 

o 


o 


o 

o 

o 

o 


CD 
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•» + 2 ,X1 

PACKER 
* + 3 


A15/AIS,09/000 

0 , X2 

STATUS 

X2 

X3 

0 , X2 
LL 0 A 
! i 0 » X 2 
LL 0 2 
MFBQ2 

12 

X2 

T3, X2 
3 * X 2 
^ + 2 * X1 
FOEC02 
LL 07 

STATSIZE+1 

^ + 2»xi' 

OUTLINE 

A15/AIS,09/000 
REENTER.'., 

T3, X2 


GET NEXT ITEM 
END OF LINE 

DECIMAL NUMBER IS ILLEGAL 
BCD SYMBOL IS NOT CK 
CLEAR PENDING CM REQUESTS 
INITIAL LUN 

PUT THE LUN IN X3 

BECAUSE OF DRIVE FAILURE, ETC. 

GET THE UNIT STATUS 

JUMP IF THE UNIT IS EQUIPPED 

SKIP IF DONE 

PRINT MFBLKS 

SAVE THE STATUS 

GET THE LUN 
SAVE LUN IN T3 
SPECIFY 13 FORMAT 

OUTPUT IN FORMATTED DECIMAL 
RETURN ADDRESS 

AND PRINT STATUS AND SIZE OF U 


GET ANY PENDING CM REQUESTS 
RE-ENTER CONTROL MODE 
PUT LUN INTO X2 


o. 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o. 

o 


o 
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4237 


V ¥ V V V ¥ V ¥ V V V V ¥ V ¥ ¥ ¥ ¥ ¥ V ¥¥¥¥¥¥¥¥¥¥¥¥ V ¥ V ¥ ¥ ¥ ¥ ¥ ¥ ¥ V ¥ ¥ ¥ ¥ ¥ V ¥ V V ¥ ¥ ¥ V 


PRINTS STATUS AND SIZE OF LUN IN X3 
RETURN ADORES IN A 

TERMINATING CHARACTER IN X2 RESTORED AT END 
STATUS IN T2 

LUN SAVED IN T3 RETURN ADDRESS AND LAST CHAR IN T4 
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42 3 9 





0 7 0 2 3 

P 


4 24 0 

3TAT3IZE 

EQU 

¥ 

07023 

53730054 



4241 


TIM 

T3, X3 

070 2 4 

120 Q 0 0 0 6 



4242 


SHA 

6 

0 7 U 2 5 

17200077 



4243 


ANT 

7 7 BiX2 

0 7 026 

53240000 



4244 


AIA 

X2 

0/027 

53420055 



4245 


TAM 

T 4 

0 7 0 3 0 

53230053 



■4246 


TMI 

T 2 * X 2 

0 7 0 31 

20204453 

P 


4247 


LOA 

HW0TYPE,X2 

0 7 0 32 

53500003 



4248 


TAI 

XI 

0 70 33 

14600060 



4249 


ENA 

6 QB 

0 7 0 3 4 

14207036 

P 


425 8 


ENI 

* + 2 * X 2 

07035 

01001267 

P 


4251 


UJP 

HESSAGE+i 

0 7 0 36 

53330054 



4251+301 


TMI 

T 3 , X 3 

0 7 0 37 

14100031 



4251+002 


ENI ■ 

DESTINAT t XI 

0 7 U 4 0 

71300000 



4251+003 


XREQ 

XRE G »X 3 

0 7 041 

02507060 

P 


4251+004 


I JO 

3TSIZ07,X1 

0 7 042 

31006114 

P 


4251+005 


S8A 

BCDSITE 

0 7 043 

03007060 

P 


4251+0 0 6 


AZJ,EQ 

STSIZ07 

0 7 044 

30Q06114 

P 


4251+007 


ADA 

BCDSITE 

0 7045 

141000Q4 



4251+ u 0 8 


ENI 

4,XI 

0 7 0 46 

13000030 



4251+009 


SHAQ 

24 

0 7 047 

146 0 0 074 



4251+010 


ENA 

H X (t 

0 7 050 

14307052 

P 


4251+011 


ENI 

+ 2 * X3 

0 7 0 5 1 

01001031 

P 


4251+012 


UJP 

QUTCHAR 

0 7 052 

13000006 



4251+013 


SHAQ 

' .6 

a 7 U 5 3 

17600077 



4251+014 


ANA 

7 78 

0 7 054 

Q2501031 

P 


4 2 5.1 + 015 


IJD 

QUTCHAR,XI 

0 7 055 

146 0 0 0 34 

* 


4251+016 


ENA 

Hi-)* 

0 7 0 56 

14307063 

P 


4251+017 


ENI 

STSI208,X3 

0 7 0 5 7 

0,1001031 

P 


4251+013 


UJP 

QUTCHAR 


0 70 60 

P 


425.1+019 

3TSXZ07 

EQU 


0 7060 

53020054 



4251+020 


TMA 

T3 ' 

07051 

36 0 0 2665 

P 


4251+0Si 


S SA¬ 

BIT2S 

07062 

53420054 



4251+022 


TAN 

T 3 


070 63 

P 


4251+023 

STSIZQ8 

EQU ■ 


0 7 06 3 

53010053 



4252 


TMQ 

T 2 

0 7064 

14100011 



425 3 


ENI 

3 f X i 

0 70 65 

1420 GO 00 



4253+001 


ENI 

0 $ X 2 

0 7 0 66 

14600001 



425 4 


ENA 

<4 

0 7067 

17600001 



4255 

STSIZOi 

ANA _ - 

'1_ . 

0 7 070 

03007075 

P 


. 4255+001 


M £» J E Q 

S f SIZ0S 

07071 

22413173 

p 

■ O': 25 36 3 

4257 


LACK 

ST A TAB,XI 

0 7 072 

14307074 

P 


4257+081 


ENI 

STSI202 »X3 

'07 0 73 

01001031 

P 


425 9 


UJP 

OUTCHAR 

0 7 074 

15200001 



4259+ 0 01 

STS.IZ02 

I MI 

1, X2 

0 70 75 

13000001 



4261 

STSIZ03 

SHAQ 

4 

JL 

0 7 076 

02507067 

P 


4 262 


IJD 

STSIZOi,XI 

0 7 0 77 

53020044 



4263 


TMA : 

ID 

0 71G 0 

17600003 



4 2 6,4 


ANA 

SYSMASK 

07101 

04600000 



4 265 


ASE 

TTYSYS 

0 710 2 

01007110 

P 


4266 


UJP 

STSIZ06 

0 710 3 

53020055 



4267 


TMA 

T 4 

0 710 4 

12077771 



4263 


SHA 

-6 

0 710 5 

04607Q15 

P 


4269 


ASE 

LL0 7 

07106 

01007110 

P 


4270 


UJP 

STSIZOo 

0 71 a 7 

010 0 72 0 U 

P 


4271 


UJP 

STSI205 


0 7110 

P 


4272 

STSIZ06 

EQU 

¥ 


SAVE LUN FOR ERRORS 


MASK CHARACTER 

AND ADD IN THE CHARAXTER 

SAVE FOR FUTURE GENERATIONS 
GET STATUS 
GET T Y P p 

POINT AT CHAR STRING 

INITIAL BLANK 
RETURN ADDRESS 

PRINT MESSAGE IN INITIAL BLANK 
GET THE LUN . 

CODE FOR DESTINATION REQUEST 
GET THE INFO 
JUMP IF NO DESTINATION 
CHECK FOR 3*SITE/ 

JUMP IF FOR SITE DEVICE 
RESTORE AC 
OUTPUT FOUR CHARS 
DOWN TO Q 
A LEFT PAREN 
RETURN ADDRESS 
AND OUTPUT IT 
GET ANOTHER CHARACTER. 

MASK TO 6 BITS 

OUTPUT ANOTHER CHARACTER 

A LEFT PAREN 

RETURN ADDRESS 

AND OUTPUT IT TOO 


GET LUN TEMP 

SET FLAG TO SAY NEED SOME BLANKS 
AND SAVE IT AGAIN 

CFT STATUS 

NUMBER,OF BITS TO TRY 

START KITH NO CHARACTERS 

INITIAL BLANK 

MASK TO 1 BIT 

JUMP IF SIT NOT SET 

GET CODE FOR BIT 

RETURN ADDRESS FROM QUTCHAR 

OUTPUT THE CHARACTER 

ADVANCE OUTPUT CHARACTER COUNTER 

NEXT BIT PLEASE 

KEEP ON LOOKING 

GET SYSTEM, TYPE 

MASK TO 2 SITS 

ONLY CHECK IF ON TTY 

THEN IGNORE IF ANYTHING ELSE 

GET RETURN ADDRESS 

IGNORE DELIMITER 

SKIP SIZE GARBAGE IF ON TTY AND L 
END OF KLUGE 








CD 
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CNTLMODE 


<3 




4274 

V V V V V V V V V 

V 

NOW TO 

V V V Y V V Y Y V Y Y V Y Y 

PRINT THE SIZE 






V TT V -v- V V "»* Y 

v y y- v lf 

V V Y Y ^ Y V Y Y Y Y Ti 1 


0 7110 

53200000 


4275*001 


TIA 

X 2 

G 

1 07111 

53230053 


4 2 7 6 


TMI 

T2, X2 


1 07112 . 

5 3 4.2 0 0 6 3 


4276+001 


TAM 

T 2 


07113 

5 30 2 0 0 4 4 


4276+002 


TMA 

IO 


0 7114 

17600003 


4276+003 


ANA 

SYSMASK 

O 

0 7115 

53010064 


42 7 6+004 


TMQ 

T 3 

0 7116 

03007120 

P 

4276+005 


AZJ,£Q 

* +2 


0 7117 

1-410 U0 06 


4276+005 


ENI 

6, XI 


0 7120 

14307123 

P 

4276+007 

* 

EMI 


O 

07121 

14600060 


4276+008 


ENA 

HP t 

0 712 2 

01001031 

p 

4276+009 


UJP 

OUTCHAR 


0 7 L 2 3 

05500000 


4276+010 


QSG »S 

0 

O 

0 71.24 

02507121 

P 

4276+011 


I JO 

*-3,XI 


0 712 5 

P 

4276+012 

STSIZ12 

EQU 

Y 

0 7125 

11700000 

60000 0 

42 78 


ECHA , S 

3 0 0 0 0 Q 8 


0 712 6 

37204453 

P 

4279 


LPA 

HWDTYP£,X2 


07127 

177 0 0 37 7 


4281 


ANQ 

3 776 

0 

07130 

53040000 


4282 


AQA 


0 7131 

53420054 


4283 


TAM 

T 3 


07132 

03207200 

P . . 

4284 


AZJ »G£ 

STSIZ05 

O 

0 7133 

53020044 


4284 + 03.1 


I HA 

IO 

0 7x34 

17600003 


4284+002 


ANA 

SYSMASK 


0 7135 

03007144 

P 

4284+003 


AZJ,EQ 

STSIZ13 


07136 

53230053 


4284+004 


I HI 

T2 , X2 


07137 

14307142 

P 

4284+005 


ENI 

STS IZG4 , X'3 

O 

0 714 0 

14600060 


4 28 4+006 


ENA 

H7 / 

0 7141 

01001031 

P 

4284+007 


UJP 

OUTCHAR 



07142 

P 

4284+008 

3T3IZ04 

EQU 


O 

0 714 2 

10200005 


4284*009 


ISI 

5 ,X2 

07143 

01007140 

P 

4284+010 


UJP 

3 


0 7144 

P 

428 4 + 01i 

STSIZ13 

EQU 

-Y" 


0 7144 

14100025 


4294 


ENI 

SIZE* XI 


0 7145 

53330054 


4295 


TMI 

T 3 , X 3 

0 

0 7146 

71300000 


4296 


XRE Q 

0+XREQ,X3 

07147 

03007200 

P 

429 7 


AZJ,EG 

STSIZQ5 


0 715 0 

53410053 


4298 


TQM . 

T2,„ 


0 7161 

14200005 


429 9 


ENI 

5 * X2 

0 

0 716 2 

14iU 716 0 

P 

4299+00I 


ENI 

STSIZ09,XI ' 


0 715 3 

53010044 


4299+002 


TMQ 

IO 


0 7154 

177Q0003 


4299+003 


ANQ 

SYSMASK 


0 7155 

05700001 


4299+0 0-4 


QSG 

i : 

O 

0 7156 

01001360 

P 

4299+005 


UJP 

DT01 

07157 

01005200 

p 

H'3B1: \ 


UJP 

FDE.C.02 



07160 

P 

4301+301 

STSIZ09 

:£'QU : 

- 

O 

0 716 0 

14127633 


4302. 


OUT 

' M236 

07163 

53020054 


430 3 


TMA 

T3 

0 7164 

12 00 0001. 


4304 


SHA 

1 


0 7165 

03207200 

P . 

4305 


AZJ.,6E 

STSIZ05 


0 7166 

53020053 


4306 . 


TMA 

T 2 

O 

0 7167 

14107175 

P 

4306+00i 


ENI 

. STS1210 , XI ; 

0-7170 

53010044 


4306*002 


TMQ 

l-vT'-lO:';.!.;-;: : : :: 


0 7171 

17700003 


4306+0 03 


ANQ . 

SYSMASK 

O 

0 7172 

05700001 


4306+004 


QSG 

1 

0 7173 

01001360 

P 

4 3 0 6+ 005 


UJP 

DT01 

0 717 4 

01005177 

p 

43 0 & 


UJP 

FOECQUT 



07175 

p - 

4308+U01 

STSIZ10 

EQU 

& 

O 

0 7175 

1412.7642 


4 3 0 9 


OUT 

M2 37 


0 7 2 0 0 

P 

4310 

STSIZD5 

EQU 

Y 

07200 

53020055 


4311 


TMA 

T 4 


0 7 2 01 

53600000 


4312 


TA.I 

X2 

O 

0/202 

17200077 


4313 


A NX 

778 ,X2 

0 7203 

12000022 


4314 


SHA 

24-6 

0 7 2 0 4 

53700000 


4315 


T AI 

X3 


0 72 05 

Q130GQG0 


4316 


UJP 

0 , X3 


O 


O j 
O I 


o 


V V "i* Y T V Y V V V V V V V nf 1 V V V V V V T V Y V Y T TT Y 'A Y V V ^ "<r 

N AND BLOgK COUNT _ . * 

GET COUNTED OUTPUT CHARACTERS 

GET HARDWARE TYPE 

NOW SAVE FOR LATER 

GET STATUS WORD 

MASK TO TERMINAL TYPE 

GET FLAG SET PREVIOUSLY 

OUTPUT ONLY 1 CHAR IF FROM TTY 

OUTPUT UP TO 7 CHARACTERS 

RETURN ADDRESS(ES) 

A BLANK 

AND OUTPUT CHARACTER 
SKIP IF FLAG NOT SET 
LOOP TO OUTPUT ALL 6 CHARACTERS 

MASK THE UPPER NINE BITS 

FROM THE HARDWARE TYPE TABLE 

MASK TO 8 BITS 

ADD THEM TOGETHER 

AND SAVE IT FOR LATER, USE 

IF POSITIVE THEN WE IS DONE 

GET TERMINAL TYPE STATUS 

MASK TO JUST TERMINAL TYPE BITS 

JUMP IF A TTY 

GET COUNTED OUTPUT CHARACTERS 
RETURN ADDRESS 
A BLANK 

AND OUTPUT A CHARACTER 

SKIP IF OUTPUT TO 5 COLUMNS 
LOOP ONT OUTPUT MORE CHARACTERS 

SIZE XERQ CODE 

GET LUN TO X3 FOR ERRORS 

GET SIZE FROM SYSTEM 

IF SIZE IS 'ZERO THEN FLAKE OUT 

SAVE RECORD COUNT 

15 FORMAT 

RETURN ADDRESS 

GET STATUS WORD 

GET ONLY TERMINAL TYPE 

SKIP IF A TV OR CARD READER 

OUTPUT NON-LEADING BLANK NUMS 

PRINT THE DECIMAL NUMBER 

t BLKS/ 

GET THE FLAGS AGAIN 

/UNIT RECORD/ TYPE FLAG 

IF NO! RECORD ORIENTED THEN LEAVE 

GET RECORD COUNT 

RETURN ADDRESS 

GET STATUS ONE LAST TIME FOR HERE 
GET TERMINAL STATUS BITS 
SKIP IF HOT A TV OR CARDREADER 
OUTPUT NGN-LEADING BLANK NUMS 
OUTPUT IN IS FORMAT 

t RECSA 

GET RETURN ADDRESS AND TERMINATIN 

MASK TO S BITS 
SACK TO POSITION 
SO I CAN RETURN 
AND RETURN 


(P 

Q 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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V V V V V V V V V 

V V V V V* V V -4- 

V V V '»' V v V V V '«• V V V -V '*■ V V v V -v- v 

v v v ? A- v> v *r v v v v v v v -r v v v v t +v -r v -v- v v v v v v v t v 




4319 

V 



* 




4 32 0 


RESETR 

RESET ALL LOGICAL 

UNITS IQ THEIR INITIAL ASSIGNMENTS * 




4 321 

•r 









■V V V *j* V A ! V V ^ V V V V 'l* V -v V V T +?• 

V + + v 'r T K' V v -r v -V- V V T V Y T V Y V ^ V T ^ -v ■? "V T V -r Y Y if 


0 7 2 0 6 

P 

4324 

4325 

RESETR 

EQU 

V 


0 7206 

53430055 



TIM 

14,0 

SET FLAG TO 0 

0 72 0 7 

53200000 


4326 


TIA 

X2 

GET DELIMITING CHARACTER 

0 7 210 

14207212 

P 

4 327 


ENI 

*+2 , X .2 

RETURN ADDRESS 

0 7211 

14700060 


4323 


ENG 

HF / 

CHARACTER TO,IGNORE ( BLANK ) 

0 72.12 

03401517 

P 

4329 


AQJ,£Q 

GETCHAR 

THEN GRAB ANOTHER CHARACTER 

0 7 213 

53600000 


4330 


TAI 

X 2 

SAVE CHARACTER FOR PACKER LATER 

07214 

53430053 


4331 


TIM 

T 2 , 0 

ZERO T2 

0 7215 

04200020 


4332 


X S E 

H*+F,X2 

WAS TERMINATOR A PLUS + 

0 7216 

5 O 4 1 Q 0 5 5 


3 b 3 


TQM 

14 

SET FLAG TO NON-ZERO 

0 7217 

14107221 

P 

433^1 


£N X 

”- + 2,Xl 

RETURN ADDRESS 

0 7220 

010 0.1413 

P 

4335 


UJP 

PACKER 

GO PACK SOMETHING 

0 7221 

01007227 

P 

4336 


yjp 

RESET 01 

THEN DEFAULT UNITS REMAIN 

07222 

05400000 


4337 


A Sh+? 3 

0 

IS IT LEGAL (LUN. RETURN) 

07223 

01002177 

P 

4 3 3 3 


UJP 

E15 

SCO SYMBOL {BLEW IT, SON) 

0 72 24 

53420053 


4339 ' 


TAM 

12 

SAVE LOW UNIT VALUE 

07225 

1410722? 

P 

434 0 


ENI 

*'+2, XI 

RETURN ADDRESS 

0 7226 

01001418 

P 

4341 


UJP 

PACKER 

AND PACK SOMETHING. ELSE 


07227 

P 

% 3 % 2 

RESET 01 

EQU 

Sf 


0 7227 

14600143 


4343 


ENA 

99 

UPPER LIMIT DEFAULT 

0 72 3 0 

05400000 


4344 


ASG,S 

0 

IS IT LEGAL 

0 7231 

01002177 

P 

4345 


U-JP 

E15 

ERROR FOR BCD SYMBOLS 

0 7232 

53010053 


4 346' 


IMG 

12 

RESTORE FIRST PARAMETER 

0 7233 

05700144 


434 7 


QSG 

MAX.LUN 

IS IT LEGAL 

0 7234 

03 6 0 72,3 6 

P 

4348 


AQJ*GE 

*+2 


07235 

01002177 

P 

4 349 


UJP 

E15 

LUNS NOT IN ORDER GR NOT RIGHT RA 

0 7236 

14700144 


4858 


ENQ 

MAXLUN 


07237 

03602177 

P 

435,1 


AliJf.GE 

E15 

ERROR IF PARAMETER 2 TOO LARGE 

0 7 240 

53700000 


4352 


■TAI 

■ X3 ■ 

SAVE LUN 

0 7241 

14100002 


435 5 

RESET 02 

ENI 

UNEQUIP,X : 1 


0 7 242 

7130 00 0 0' 


4361 


:XREQ 

■:-XRE-a',.X3.- 

ATTEMPT THE UNEQUIP 

U 72 4 3 

0 410 0 0 01 


4362 



.±9X1: 

SKIP IF HOT EQUIPPED 

0 7244 

0250726? 

P 

4363 


I JO 

RESET04,Xi 

JUMP IF PROTECTED 


0 7245 

P 

. 4364 

RESET 0 3 

EQU 

* 


0 72 45 

15377776 


4 365 


INI , 

-It xs 

DOWN ONE UNIT NUMBER 

0 7246 

14600000 


4 8 6 6 


ENA 

0 . 

CLEAR AC 

0 7247 

53340000 


4 36 7 


. . ATA' ? : 

? X-3- 

SO THE AIA WILL WORK (EXTEND) 

U 7 2 5 0, 

5 3 019 0 5 3 


4,368 


TMQ 

. .12: : 

AND LOWER LUN TO Q 

07251 

03607241 

P 

4 369 

4 3 7 0 

4371 


■ AQJ.»G£ : 

RESET02 

DG I CONTINUE 

U 7 2 5 2 

14 70 0 14 4 



ENQ 

TASKUNIT 

EQUIP,63=100 

0 7253 

14100003 


4 3 7 2 


ENI 

EQUIP,XI 


1)7254 

14500000 


4 S ? 3 


tMA 

0 


0 7 255 

71 0, 0 0 0 ? 4 


4374 

l* y , 


XRE q 

60+XREQ 


0 7256 

5 3 23 0 a 44' 


4375+001 


T HI 

10, X2 

. GET SYSTEM CODE 

0 725 7 

17200003 


4375+002 


AMI 

SYSHASK,X2 


07260 

14706645 

: X 7 \ 

4375+003 


ENQ 

LPUNIT 


0 72 61 

04200002 


4875+004 


IS E 

TASKSYS,X2 

SKIP IF BATCH 

0 7262 

14700144 


4376 


ENQ 

TASKUNIT 


0 7263 

14100003 


4 37 7 


ENI 

EQUIP,XI 

EQUIP,61=100 

07264 

146 0 0,0 0a 


4378 


ENA 

0 


0 7 265 

71000075 


4360 


XREQ 

61+XREQ 


0 7 266 

01000424 

P 

4381 

438 2 


UJP 

MC 



0 726 7 

P 

438 3 , 

RESET 04 

EQU 

-<?• 


0 7 267 

53020055 


4 38 4 


IMA 

T 4 

GET RESET FLAG 

0 7270 

08107245 

9 

4385 


AZJ»NE 

RESET 03 

NON-ZERO IF I AM RESTRICTED 

0 7271 

14100004 


438 6 


ENI 

RFP,XI 

REMOVE FILE PROTECT THEN , 

0 72 72 

71300000 


4 33 7 


XREQ 

XREQ,X3 


07273 

01007241 

P 

+ 388 


UJF 

RESET02 

TRY THE UNEQUIP AGAIN 









CD I 

I 
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) GNTLMODE 

Q 




4 391 

V V v v V *V V V 

V 

V V '1* '1* V* '»* 





439 2 

■ * , ■ ■ 

SENDR 

Q 




4 u J 0 

4 39 4 

V 






4395 

?■ SEND 

LUN TO 





4 39 6 

*„ _ 


o 








0 7274 

14107276 

P 

4399 

SENDR 

EN.I 


07275 

01001413 

P 

4400 


UJP 

0 

07276 

01000424 

P 

4400+001 


UJP 

0 7277 

05400000 


4402 


A SG, S 


0 7300 

01002177 

P 

4403 


UJP 


0 73 01 

53700000 


44 0 4 


IA I 

o 

0 7 3 0 2 

14107305 

P 

4405 

3 E H u 0.2 

ENX 


0 73 0 3 

05300144 


440 6 


I SG 


0 7 304 

01001413 

P 

4407 


UJP 


U 7 3 05 

U1002177 

p 

4408 


UJP 

O 

07306 

01002177 

P 

4409 


UJP 

0 7307 

36006123 

P 

4410 


SCA 


0 7 3 i 0 

03007302 

P 

4411 


AZJ,EQ 


07311 

20001515 

P 

4411+001 


LDA 

o 

0 7.312 

03507323 

P 

4411+002 


AQJ,N E 

07313 

53020052 


.4411 + 003 


THA 


0 7 314 

14100023 


4418 


ENI 


07315 

71300000 


4419 


XREQ 

o 

0 7316 

02502150 

P 

4420 


IJD 

0 7317 

01007274 

P 

4420+001 


UJP 

o 

0 7 320 

02507323 

o 

442.2 + 001 

SEN0ER2 

IJD' 

07 321 

14130242 


442 2+ 0 0 2 


ERM 


0 7 323 

14130311 


4422+003 

SENDERS 

ERM 


o 

o 


o 

o 


o 


o 





- ROUTINE TO PROCESS THE SEND COMMAND. * 

SEND WILL CHANGE THE DESTINATION ON LINE PRINTERS. * 

DEVICE-NAME * 


* * -v> pt ^ 


^ v v v v v v v v V v v v v v -r v v v v v t!- v •r nr ^ v t ^ t v -^r nf *^r ^ t v v -9 


*+2 » XI 
PACKER 
MC 
0 

E15 

X 3 

* +-3 » XI 

MAXLUNtX3 

PACKER 

E15 

E15 

BCDTO 

SEND02 

BLANKS 

SENDERS 

T1 

ASSIGN-} XI 
XR£G,X3 
SENDERS,XI 
SENDR 


LUN, SKIP IF POSITIVE 
BCD, PARAMETER ERROR 

SAVE LUN IN X3 
RETURN ADDRESS 
SKIP IF LUN TOO LARGE 

END OF LINE, PARAMETER ERROR 
NUMBER, PARAMETER ERROR 
CHECK FOR H7TQ t 
JUMP IF H'XT0 t 

JUMP IF 5 OR -MORE CHAR SYMBOL 
GET SYMBOL AGAIN 

ATTEMPT TO RE-ROUT THE OUTPUT 
JUMP IF ANY ERRORS 
SET NEXT PARAMS 


SENDERS,Xi 

M252 LUN IS NOT UNIT RECORD 

M253 ■ DESTINATION UNKNOWN 


CD' 

0 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 






0 

ASSEHBLER/0S3 M i.u 09/24/74 

o 

<3 I 


O 


O 1 07325 

14107327 

P 

w 0 7326 

01001413 

P 

07327 

01002177 

P 

0 7 3 8 0 

01007332 

P 

O 07331 

01002177 

P 

07332 

14100030 


0 7 0 3 3 

71000000 


0 7334 

02507336 

P 

O 07385 

01004157 

P 


0/336 02507341 P 

07337 14130335 

O 07341 14130373 


O 

O 

O 

O 

O 

o 


150V PAGE 90 CNTLHOOE 


v v v v v v v v v v *r v v v v v 

4420+0.02 * 

4428+003.* TMAXR - 

4428+004 + 

4428+005 * TAPEMAX=NUMBER 
4428+006 * 


4428+009 

TMAXR 

ENI 

4428+010 


IMP 

4428+011 


UJP 

4423+ Q12 


UJP 

4428+013 


UJP 

4428+014 


ENI 

4428+015 


XREQ 

4428+016 


IJD 

4428+017 


UJP 

4428+018 



4423+019 

THAXER 

I JD 

4428+020 


ERM 

4428+021 

TMAXER2 

ERK 


O 

O 

O 

O 

o 

o 

o 


o 


0 




CP 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 












o 










a- 
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*JP 





4 43 0 

v *' -r r v r v v v 

V V V -f V V V V 

-r *r v r v v V v v v v v "4* v v v v v v t -v* v 

rr -v -v *r v -r v v v v v v- v -r r v v *r v t* v v v t 'r v y v t v v -nr v A? 

V- 

a 






4 431 

V 

FORMER- 

-ROUTINE TO WRITE FORMS RECORDS * 







443 2 

■v -v 

LA8ELR- 

-ROUTINE TO WRITE ATRICKA LABEL RECORDS * 


O 





44 3 3 

* 



■v 

3 






4434 

* 

IF LUN 

SPECIFIED IS 62 AND 62 

IS UNDEFINED IT WILL BE - 






4435 

Tf* 

EQUIPEO 

AS A CARD PUNCH, 








4 43 6 

SJL 



*^r 


o 





443 7 

** EASEL 

) 


Y 

o 





443 3 

* FORMS 

) , LUN , COMMENTS 

* 






443 9 


** ** ** W 


* 

v v -r v v -v v v '/■ -v- y v v r t v v t v v v v v -r v -r V* v v v v- -r -v -v 


o 









o 

o 

0 73 4 3 

47644560 



4442 

8CDPUN 

BCD 

2, PUN 



0 7 345 

76527557 



444 3 

FGRMSWRD 

OCT 

76527557 


o 





4444 

+LA8WRD 

OCT 

57527675 


o 





4446 • 

♦LA8ELR 

EGA 

LAB WRO 

GET LABEL WORD 

o 






4447 


UJP 

FORMSOO 


O 

0 7346 

20007345 

P 


444 9 

FORMSR 

LDA 

FORMSWRD 

PUT THE TRICK 


07347 

40001005 

C 


445 0 

FORMS00 

ST A 

SCRATCH 

FORMS WORD IN THE. BUFFER 

o 

0 735 0 

17600100 



4 4 5 U I s G 0 I 


ANA 

isos • . 



0 7 351 

53420054 



4 4 5 0 4* 0 9 2 


TAM 

13. 

ZERO TO T3 IF LABEL 


o 

0 7 352 

14107354 

P 


445.1 


EMI 

++2,Xi 



07353 

01001413 

P 


445 2 


UJP 

PACKER 

GET THE LUN 

o 

0 7354 

01002177 

P 


4453 


UJP 

€15 

END OF LINE--ERROR 


0 7 355 

01007357 

P 


4 454 


UJP 

*+.2 

LUN 


o 

07356 

01002177 

P 


4455 


UJP 

E 15 

BCD SYMBOL—ERROR 


0 7357 

06400144 



4456 


ASG,S 

MAXtUN 


o 

. 07360 

05400000 



4457 


■A ^ G f S 

0 



07361 

Q10 0.2 i 7 5 

P . 


4.4 b 8 


UJP 

E04 '. 

ILLEGAL LUN 



0 7 562 

53700000 



445 9 


TAI 

X3 

PUT IN A RESTORED REGISTER 


o 

0 7 363 

04300076 



4 4 & 0 


ISE 

62, X3 ■ 

SKIP TO CREATE A PUNCH UNIT 

o 


0 7 6o k 

01007570 

P 


4 461 


UJP 

F0RMS05 

NO. 


0 7 3 65 

25007343 

P 


446 2. 


LDAQ 

8CDPUN 



o 

0 7 3 6 6 

14100003 



446 3 


ENI 

EQUIP,XI 

REQUEST AN EQUIP 


0 7367 

7130 00 GO 



4 4 b 4 


XREQ 

XREG,X3 

TRY THE EQUIP {IGNORE LRRCRo) 

o 

0 7370 

14 7 0 00 Q Q 



4 465 

FQRH385 

ENQ 

STATUS 

TRY TO SEE IF UNIT EQUIPEC 

i 

0 7371 

723000ua 



4456 - 


CNTL 

CNTL,X3 

GET IT HAN.. 


1 

0 7372 

03002155 

P 


4467 


AZJ,EQ 

£02 

LUN UNDEFINED 


o 

0 73 73 

53020054 



4;467+0 01 


IMA 

13 

GET LABEL/ 

■ H O 


0 73 74 

53240000 



4467+002 


A/I-A 

X2 

ADO IN DELIMITER 


07575 

53420054 



44.67 + 003 


TAM 

T 3 - ■ 

SAVE FOR LATER 


o 

0 73 76 

14100004 



4468 


EMI . 

4 » X1 

POINT PAST FORMS WORD 


0 7 377 

04200037 



4469 


ISE 

378-9X2 

END OF LINE,. 

o 

07400 

01007402 

P 


44? Q 


UJP 

FOR MS07 

NO. 


I 07401 

Q1007414 

P 


44 71, 


UJP. 

. FORMS!0 

YtS, GO ;WRX Fc fit CORD., 



07402 

14207404 

P 


947 2 

FORMS 07 

ENI 

*+2,X2 



o 

0 7403 

01001517 

P 


447 3 


UJP 

. GETCHAR 

GET NEXT CHARACTER 

o 


0 740 4 

04600037 



4474 


ASE 

378- 

END OF LINE.. 


0 7405 

01007432 

P 


4 9 75 


UJP 

F OR MSI 9 

NO. 


o 

0 7406 

14700060 



4 9 7 & 


ENQ 

H/ X 

BLANK FILL THE RECORD 


07407 

43404024 

C 0 1 Q 0 

5 0 

4477 


SQGH 

SCRATCH,XI 


o 

07410 

43404025 

C 010 0 

5 1 

447 8 


3QGH 

SGRATGH+i,XI 



0 7411 

434 (J 4026 

C 010 0 

5 2 

4479 


SQCH 

SCRATGH+2,XI ' 




0 7412 

15100003 



448 0 


INI 

3,XI 

INCREMENT TO WORD 80UNDRY 


o 

0 7413 

53600000 



4481 

FQRMS09 

TAI 

X2 

SAVE DELIMITER 

o 

07414 

53100000 



4482 

FORMS10 

TIA 

XI 

GET CHARACTER COUNT 


0 7415 

13077745 



4483 


SHAQ 

-2 4-2 

.MAKE WORD COUNT IN Q 



0 7416 

14601005 

c 


4484 


ENA 

SCRATCH 



o 

07417 

53130054 



4484+001 


TMI 

13, XI 

GET DELIMITER OF LUN 

o 

07420 

04100014 



4484+002 


ISE 

1HX,X1 

SKIP IF t AND LABEL 


0 7421 

01007430 

p 


4484+003 


UJP 

FORMSI3 

NOT, 



0 7422 

15600001 



4484+004 


INA 

1 



o 

0 7 423 

15577776 



4484+005 


INQ.S 

-1 


o 

0 7424 

04500000 



4 48 4 + 0 0 6 


QSE ,S 

0 

SKIP IF NO CHARACTERS 


0 7425 

01007430 

p 


4434+007 


UJP 

FORMS13 




0 7426 

14601515 

p 


4434+008 


ENA 

BLANKS 



o 

0 7427 

14700001 



4434+009 


ENQ 

1 


o 


0 7430 

p 


4484+010 

FORMS13 

EQU 




0 7430 

76300000 



448 5 


WRITE 

0 ,X3 

WRITE RECORD < IF ERROR A REENTER 


.'.I 





4486 




WILL SAY ^ILLEGAL FUNCTION —LUN N 


O : 

0 7431 

01004157 

p 


4 48 7 

4488 


UJP 

CCR 

SLURP UP REST OF LINE 

o 


0 7432 

130 77747 



443 9 

FORMS14 

SHAQ 

-24 

PUT CHARACTER IN Q 


Q 










o 
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0 74 33 

43404024 

3 01005 0 

4 49 0 


SUCH 

SCRATCH, XI 

PUT,IN BUFFER 
rliLL o * 

0 74 34 

10100050 


4491 


ISi 

4 U , X1 

0 74 35 

01007402 

p 

4492 


UJP 

FORMSO 7 

NO. 

0 7 436 

53040000 


4 493 


AQA 


YES, PUT LETTER 

0 7437 

14100050 


4 49 4 


ENI 

40, XI 

SET TO MAX 

0 744 0 

01007413 

P 

4 495 


UJP 

FOR MS 09 

GO WRITE IT 


I 
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CNTLMODE 


07441 
07442 
0 7443 
0 7444 
0 7446 
0 7447 
0 745 0 
0 7451 
0 7452 
0 7453 
07454 
0 7455 
0 7 45 6 
0 7457 
0 746 0 
0 7461 
0 746 2 
0 746 3 
0 7 464 
07465 
0 7466 
0 7467 
0 7470 
0 7471 
0 7472 
0 7473 
0 7474 
0 7475 
0 7476 
07477 
0 75 0 0 
07501 
0 7502 
07503 
Q 75 0 4 
0 7505 

0 75 0 6 
07507 
0 7510 
0 7511 
07512 
07513 
0 7514 
07515 
0 7516 
0 7517 
0 7 520 
0 75 21 
0 7522 
0 7523 
0 7524 
07525 
07526 
0 7527 
0 7530 
Q 7531 
0 75 32 
07533 
0 7534 
0 75 35 
0 75 36 
0 75 37 
U 75-4 0 
0 7541 
0 75 42 
0 7 5 4 3 
0 7544 
0 7545 






V Y Y Y Y V T Y 

V Y Y Y Y Y Y Y Y 

Y V V V Y Y Y V V Y Y Y Y V Y Y Y 

V Y Y Y Y Y •*£ Y Y V Y '4' Y Y Y Y T Y Y Y Y Y V Y Y Y V V Y Y V V Y A* V Y "A 




4498 

v 



Y 




4499 

* 

fitNAMES- 

-RENAME OS3 SAVED 

FILES * 




450 0 

* 



¥ 




45 01 

* RENAME,OLDM AH E/ N£ WN A ME ( ET C . ) 

* 




45 0 2 

V 



-v 





V ^ T V V T *V V 'r 

' 4 * ' 1 * Y 4' V Y ->* Y Y 

Y Y V V Y Y Y Y V V Y Y V Y Y V 

Y -Y Y Y Y Y Y Y Y Y V Y Y Y V YY Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y ^ Y Y Y 

14100015 



4505 

RENAMES 

ENI 

SF8LKREQ * XI 

ASK FOR CURRENT SFBLKS 

7.1 0 0 0 0 0 0 



4506 


XREQ 

XREQ 

AND THE SFBLKS LIMIT 

03707446 

P 


450 7 


AQJ,L T 

RENAMED! 

JUMP IF HE CN DO RENAME 

14111471 



4508 


ERM 

M19 

XINSUFFICENT FILE SPACE* 

14107450 

P - 


4509 

RENAME01 

ENI 

*+2,Xi 


01001413 

P 


4510 


UJP 

PACKER 


01000424 

P 


4511 


UJP 

MG 

END OF LINE 

01002177 

P 


4512 


UJP 

£15 

INTEGER—ERROR 

53420054 



4513 


TAM 

13 

SAVE OLD NAME 

53410055 



4514 


TQM 

14 


14107456 

P 


4515 


ENI 

* + 2 , XI 


01001413 

P 


451S 


UJP 

PACKER ■ 

GET NEW NAME 

01002177 

P 


451,7 


UJP 

El 5 

EOL ILLEGAL HERE 

-01002177 

P 


451 a 


UJP 

E15 

INTEGER—ERROR 

53020054 



4519 


THA 

13 

GET OLD FILE NAME BACK 

53010055 



4 5 -2 9 


TMQ 

T4 


14307464 

P 


4521 


ENI 

. ^+2»X3 


01003006 

P 


4522 


UJP 

EQSYSQ1 

TRY TO EQUIP IT 

02503173 

P 


4523 


IJO 

EQERRj XI 

JUMP IF ERRORS 

14300001 



4524 


ENI 

1, X-3 

SET NOT FILE PROTECT BIT 

53010055 



4525 


TMQ 


GET SECOND HALF OF NAME 

0320 7475 

P 


4526 


AZ J , 6 E 

RENAME05 

JUMP IF NOT FILE PROTECTED 

.14 3 0 0 0 0 0 



4527 


ENI 

' O , X 3 

SET PROTECTED CODE 

14100004 



4 52 9 


ENI 

RFP»XI 

TRY TO RFP IT 

53 0 2 0 0 54 



4 5 2 9 


THA 

.13.. . 

GET FIRST HALF OF NAME 

71006746- 

X 


4 5 3 a 


XREQ 

- -.SYSLUN, XREQ 


02503344 

P 


4531 


IJO 

■■■RENERR2VX1 

JUMP If PUBLIC OR EUSY 

53-02 0 0 54 



4532 

REN.AME05 

.TMA 

■ 13 

GET FIRST HALP OF NAME 

1410 30 0 Q 



4 6 3 9 


ENI . . 

DELETE,XI 

REQUEST DELETE FILENAME 

71007473 

y 


4 5 % 0 


XREQ 

SYSLUN,XREQ 


0410 0 0 G 0 



4540+001 


ISP . 

0 , X1 

SKIP If NO DELETE ERRORS 

010 0 75 0 6 

P 


4540+002 


UJP 

RENAME15 

PROTECT UNIT If IT WAS BEFORE 

04200040 



4 5 4 0 + 0 0 3 


ISE 

BX~X-*X2 

SKIP IF NOT TO PROTECT FILE 

01 0 0 750 3 

P 


45%0+004 


UJP. 

- » + 2 


0i0 0 7513 

p 


454-0.4 00 5 


UJP - 

SENAME06 


04200020 



4 5 4- 0 + 006 


ISE . 

-HX+X»X2 

SKIP TO PROTECT FILE 

0 7506 

P 


4540+007 

. RENAME15. 

t J \j 

- Y 

CHECK PREVIOUS PROTECT CONDITION 

02707513 

p 


■4541 


IJO 

' RENAME 06,X3 

JUMP IF HOT TO BE FILL PROTECTEE 

5310 0 0 0U 



4542 


TIA 

V 4 

X, 

SAVE ERROR CODE FROM DELETE 

14100005 



4543 


ENI 

F P -, X1 _ 

REQUEST TO PROTECT FILE: AGAIN 

71007477 

X 


% 5 % % 


XREQ 

S Y S L UpS , XRtQ 


53500000 



4545 


TAX " - 

XI 

RESTORE DELETE ERROR CODE 

02502153 

- P 


4546 

RENAME06 

IJD 

DLERRS,XI 

JUMP IF DELETE ERRORS 

53020052 



454 7 


TMA 

T1 

GET NEW FILE NAME 

53019053 



4548 


TMQ 

T2 


1410 0 0 Cl 



6 . 54 .Q 


ENI 

SAVE,XI 

REQUEST TO SAVE UNDER NEW NAME 

71007511 

X 


455 0 


XREQ 

SYSLUN,XREQ 


051U00G1 



4551 


IS G 

1 , X1 

SKIP IF ERRORS 

01007446 

p 


4552 


UJP' 

RENAME 01 

TRY SOME MORE NAMES 

53100000 



455 3 


TIA - 

X1 

TRANSFER ERROR CODE 

5-3.7 a 00 O'0 



4554 


TAX 

X 3 

TO A SAFE Pi-ACE 

53020054 



4555 


TMA 

T 3 

GET OLO FILE NAME AGAIN 

63010055 



4556 


TMQ 

T4 


14100001 



4557 


ENI 

SAVE , XI 

REQUEST TO SAVE UNDER OLD NAME 

71 0 IJ 7517 

X 


455 8. 


XREQ 

SYSLUN,XREQ 


02507534 

p 


455 9 


IJD 

OOPS,XI 

JUMP IF CANXT RESAVE 

53300000 



456 0 


TIA 

X3 


53500000 



4561 


T AI 

XI 


02502152 

p 


456 2 


IJO 

SAVERR3 ,X1 

PRINT ERROR 

14300143 



4 56 3 

OOPS 

ENI 

99, X3 

TRY TO EQUIP IT TO SOMETHING 

14600000 



4564 . 


ENA 

0 


14707527 

X 


4565 


ENQ 

SYSLUN 


14100003 



456 5 

OOPSOl 

ENI 

EQUIP,XI 


71300000 



4567 


XREQ 

X R E Q , X 3 

TRY TO EQUIP X3 TO SYSLUN 

0 410 0 0 U 0 



4568 


ISE 

0, XI 


02707537 

p 


456 9 


IJO 

OOPSOl,X3 

TRY ANOTHER LUN 

11030223 


06Q44 3 

4570 


ECHA 

M251-Z 

INCASE IT OINXNT WORK 

02501264 

p 


4571 


IJO 

ERRORINA,XI 

THE FILE IS GONE 

14130176 



45 7 2 . 


EG HI 

M 25 0 , XI 

XRENAME FAILURE — LUN X 





CD 


0 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 
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4573+003 * ■ 






4573+004 * 

SMASH 

ROUTINE TO REMOVE 

RUN ONLY MODE 



4 5 7 3 +005 



,'7 * 



4573+006 ¥ 

A 

CHANGED 




4573+007 * 

Q 

CHANGED 

* 



4573+008 * 

XI 

CHANGED 




4573+009 * 

X2 

RETURN ADDRESS 

# 



4573+01 U "■ 

X3 

CHANGED 

V 



4573+011 * . 



Y 



'sr -v* nr nr nr nr nr nr nr 

v -r -nr nr v t -«* ~r -v v 

• v *,* *r ~r ~r -~r nr -v* K- 'r- ~r nr v -v- v >r v v 

V Y V V V ^ V V "5“ Y Y V ■¥> Y Y V V Y ^ V Y Y Y if Y ^ Y ^ ^ Y Y ^ Y 



4573+013 

4573+014 




0 75 4 7 

14300017 

4573+015 SMASH 

ENI 

178 , X3. : 


0 755 0 

14100007 

4573+016 SM01 

ENI 

ZERQPAGE, XI 


J 755 1 

713 0 GO 0 0 

4573+017 

XREQ 

XREQ » X3 

ZERO LONER CORE. 

1)7552 

02707550 P 

4573+018 

130 

SMQ1,X3 


0 75 5 3 

14300073 

4573+019 

ENI 

59, X3 


0 7 5 5 4 

14100002 

4573+020 SM02 

ENI 

UNEQUIP i XI 


0 75 5 5 

04300070 

4573+021 v 

ISE 

5 6, X 3 

OON/T UNEQUIP 56 

0 7556 

71300000 

45.73+022 

XREQ 

XREQ , X3 

UNEQUIP tUNS IN 50XS 

0 755 7 

10700062 

4573+023 

ISO 

50 ,X3 

SKIP WHEN DONE 

0 7560 

01007554 P 

4573+024 

UJP 

S H 0 2 


0 7561 

5 3 4 3 0 0 4 3 

4573+025 

TIM 

A , S 

CLOBBER THE GUY/S STATUS 

0 7562 

53430051 

4573+026 

TIM 

Q, 0 


07563 

53430050 

4573+027 

TIM 

B i » 0 


0 75 64 

5 3 4 3 0 0 4 7 

4573+028 

TIM 

82,0 


07565 

53430046 

4573+029 

TIM 

B3 , 0 


0 7566 

53020040 

4573+030 

TMA 

LJA . 

GET LAST JUMP ADDRESS 

0 7 5 6 7 

37007501 P 

4573+031 

LPA 

SM9Q 

MASK IT OUT 

07 57 0 

53420040 

4573+032 

TAM 

LJA 


0 7571 

53430041 

4578+033 

TIM 

PC, 0 


0 7572 

53430042 

4573+034 

TIM 

IS,0. 


0 7573 

53020044 

4573+035 

TMA 

10 


0 757 4 

17473777 

53420044 

4573+03,6 

ANA »S 

-R0N0B1T 

AND OFF RUN ONLY BIT 

07575 

4573+037" 

TAM 

10 


07576 

13077717 

4573+036 

SHAQ 

-46 

ZERO AQ 

0 757 7 

55700000 

4573+039 

AQE 


CLOBBER THE GUY*S E REGISTER 

07600 

0,120 OQ 0 0 

4573+040 

UJP 

0 , X 2 

RETURN 

0 7601 

77600000 

4573+042 SM90 . 

OCT ■ 

776000SO 




CD 


G; 

G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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4573+045 
4573+046 
4573+047 
4573+043 
4573+049 
4573+050 
4573+051 
4 5 7 3 + 052 
4573+053 
45 7 3 + 054 


CHOVER -- CONTROL MODE OVERLAY FETCH ROUTINE. 

THIS ROUTINE WILL READ IN AN OVERLAY WITH THE NAME AS IS 
SPECIFIED BY THE CALLING COMMAND BUT WITH THE TWO CHARACTERS 
INCLUDED AT THE FRONT OF THE BCD STRING. HOPEFULLY 
THE ROUTINE WILL LOAD INTO CONTROL MODEFS IMPURE PAGE, SO 
AS TO NOT DESTROY THE USERS STATUS. CALL IS MADE BY A 
PSEUDO FRT J t AND RETURN IS MADE TO P+1 If ERROR, OR P + 2 
IF NO ERRORS. THE ERROR RETURN DECODES THE VALUE IN A AS 





457 3+0 55 

A- 

A RE-E 

NTRY REQUEST 

CODE. 





4573+056 










•Sr v v r tv tt Pir *v 

+T 4’ T? T'lf'.V.'V V V V -V” nr V T T *5^ V V 

•Sr -v v -sr -r -v nr -nr 

t v t t iir nr -v* -v ‘V* v nr -nr 'r v nf- v v -nr t v v -v t +r -r ^ v ^ ^ v ^ *+ 


07602 

P 

4573+059 

CMOVER 

£ Q U 

* 



0 76 02 

53020044 


4573+060 


THA 

IO 


GET IO STATUS 

0/60 3 

176U0G2Q 


4573+061 


ANA 

AUXBIT 


CHECK FOR ADO/J 

0 7b 0 4 

03103766 

P 

4573+062 


AZJ,NE 

EQ1 


JUMP IF PROCESSING A DO 

0 7 b 0 5 

53020052 


4573+063 


IMA ■ 

Ti 


GET FIRST HALF OF NAME 

0 76 0 6 

53010053 


457 3+0 64' 


THQ 

T 2 


GET SECOND HALF 

0 7 6 0 7 

17570000 


4573+065 


ANQ,S 

70000B 


AND OUT LAST TWO CHARACTERS 

07610 

167135354 


4573+086 


XOQ 



CHANGE TO A FILE 

07611 

13000044 


4573+067 


SHftQ 

48-12 


AROUND TO THE FRONT 

0 7612 

14307614 

P 

4573+068 


EMI 

*+2,X3 


RETURN ADDRESS 

07613 

01003006 

P 

4573+069 


UJP. 

EQSYS01 


GO EQUIP IT 

0 7 614 

0 25 0 3 7 66 

P 

4573+070 


IJO ' 

E 01» X1 


JUMP IF ERRORS 

0 7615 

14700004 


4573+071 


ENG 

REWIND 


REWIND FUNCTION 

0 7616 

72 0 0 753o 

X 

4573+072 


CNTL 

SYSLUN 


ON TO THE FRONT OF THE FILE 

0 7617 

12000002 


4573+073 


SHA ■ 

23-EODBIT 


CHECK FOR END OF DATA 

07620 

03303766 

P 

4573+074 


A Z J ? L T 

EOi 


ERROR .IF SO 

07621 

14107623 

P. 

4573+075 


EH I 

*+2,Xl 


RETURN ADDRESS 

07622 

01003535 

P 

4 5 1 3 -t- if 7’ 6 


UJP 

PARAMOUT 


OUTPUT PARAMETER STRING 

0 762 3 

53020044 


4 5 73+.07.7 


THA 

.I.Q .. 


GET IO STATUS 

0 76 2 4 

17+776J7 


4573+078 


ANA , S 

—IBUFBIT- 

QBUF8IT: 

CLEAR INPUT/OUTPUT BUFFER BITS 

0 7625 

5 6 4.2II 0 4 4 


4573+3 7.9 


TAM 

■ ' I Oi. 


NOW REPLACE THEM 

07626 

14601001 

L? 

4573+080 


ENA 

OVLBUF- 


BUFFER TO READ INTO 

07627 

14700004 


45.73+0 81 


ENQ 

. 4 . . - 


TRY TO READ 4 WORDS 

(3 76 30 

74007616 

fh 

45 7-3 + 082 


READ. 

SYSLUN 


AND READ THE HEADER 
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369 0 

0 627 3F 

3696 

063U1P 




/ JL C ■ 

0.6 32 IP 

3763 

06373P 

386 0 

Q6533P 

3876 

06550P 

38 8 5 

0 6 5 61P 

LENGTH 

00 0 02 

4065 

3 8 0 1 

06441P 









LIBCALL 

o o a i o 

12 9 

752 

Q0552P 

774 + 3 

oosoop 

3398 

0 5 5 4 0 P 





LINEENO 

04164P 

265 6 

15 

Q0165P 

2597 

04120P 







LINEPP 

00024 

14 S 











LJA 

00040. 

24 0 

356 

0 3 0 a -ip 

: 2682 

0.4.212? 

2953 

.0 4.6.43 P 

3164 

0 5 2 i 7 P 

4573+30 

Q7566.P 

LL 02 

06775P 

42 0 5 

4211 

07003P 









LL 03 

0 7 a 0 2 P 

4209+1 

4228 

0 7 0 2 2 P 









LL 04 

0 7 0 0 5 P 

4214 

42 09 

07 0 0 IP 









LL 0 7 

0 7 015 P 

4 22 2 

422 0 

07013P 

4269 

07105P 







LNGH 

0 6 66 7 P 

3 98 3 

3748 

Q&354P 









LOGOI 

0 5 213 P 

316 0 

3 60 

00005P 









LOG02 . 

05525P 

3334 

3352 

05 5 0 OP 









LOG 021 

05475P 

3348+1 

3383+2 

05524? 









LOG022 

05523P 

3383+1 

3245+1 

05 3 3 4 P 









L 0 G C H E K 

04153P 

2 S3 6 

26 34 

04151P 









LOGIN 

00020 

141 

3 0.24 

04733P 

3209 

05270P 

3272 

05:3 64P 

3 345 

05471P 



LOGOFF R 

04573P 

2910 

416 

0 0 0 7 IP 

33 + 1 

0 07 04P 

29 0 7 

04571P 





LOGREQ 

05517P 

3 37 2 

710 

0 047 IP 

731 

00521P 

3308 

05425P 

3315 

05433P 



LOG TA 

0 513 UP 

3086 

3081 

05121P 









LOG VANSH' 

04621P 

2934 

418 

00073P 

15 07 

01774P 

1512 

02001P 





LOGWAIT_ 

X 

34 0 + 2 

33 05 

05422P 









LOHGF LAG 

01034C 

4060 

3569 

0615 OP 

3/46 

06352P 

378 8 

06424P 

3965 

06665P 



LP 

0 0 0 0 2 

19 3 

935 

01163P 

1066 

01252P 

1473 

01734P 

3 0 22 

0473IP 

3241 

05327P 


* LPO-IT. 00026 184 

LP3UFL 00024 215 895 01077P 


436 00112P 
493 00202P 
681+1 0Q431P 
887 Q1067P 
999 01201P 
1114 013 0IP 
1366 01565P 
1494 01761P 
1612 02136P 
1943 03041P 
2100 Q3265P 
2674+2 04173P 
2910 04573P 
3090 05132P 
3842 06511P 
4375+1 07256P 


2726 Q4315P 


3698 Q6303P 
3964 06664P 


4573+32 0757 OP 
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LPUNIT 

'/ 

A 

340 + 1 

983+1 

0116 2 P 

, 995 

0 12 7 5 P 




2939+1 

0 4 b 2 b P 

2941+1 

U 4 a 3 0 P 




3212+1 

0 5 2 7 4 P 

3236+1 

05323P 




3274+1 

05 36 7 P 

3276+1 

05371P 




4375+3 

07260P 

4573+100 

0 7 6 52 P 

L U; i 

U1024C 

4053 

3 7 31 

0&334P 

3744 

0 635 0 P 




3942 

0 6 b 4IP 



LUi'lLISTR 

0 6 7 to 6 P 

419 3 

3 3+1 

00707P 



LUilUO 

02155P 

16 3 6 

406 

0 0 0 5 7 P 



MOl 

0 2 2 0 7 P 

166 7 

5 

03766P 



HO 2 

0 2 215 P 

1669 

5 

02156P 

5 

U4433P 

H j 2 A 

02215P 

1663 

5 

Q0341P 



HO 3: 

02217P 

167 0 

5 

02164P 



MO 4 

02221P ' 

1671 

5 

02166P 



HO 5 

02227P 

1672 

43 

03 2 0 UP 



f 10 b 

02234P 

16 7 3 

43 

03 20.IP 

43 

04471P 

HO 7 

0 224 OP 

16 7 4 

5 

0 214 6 P 



HO 8 

G2.243P 

16 75 

43 

G32Q3P 

43 

03425P 

M09 

02246P 

167& 

43 

03204P 

43 

04474P 

M i 0 

0 225 3P 

1676+1 

5 

02177P 

43 

03205P 

Mi 0 0 

0 2 616 P 

.176 3 

5 

0 04 0 IP 



Hi 01 

0 2 b 2 2 P 

176 4 

5 

QG405P 



M 192 

0 2 6 3 0 P 

1765 

5 

Q0164P 



M 11 

0226 OF 

167 8 

5 

02175P 



Mil 

02263P 

1679 

43 

Q3430P 

43 

03473P 

H.14 

U2267P 

1680 

43 

0 3 4 2 7 P 



Hi 5 

0 2 2 7 3 P 

1631 

5 

03446P 

43 

0 3 5 31P 

Ml 6 

G2277P 

1632 

5 

0 2 2 0 3 P 



Ml 7 

02304P 

168 3 

43 

0 3 4 71P 



Mia 

02311P 

1634 

43 

03472P 



Ml 9 

0 2 316 P 

168 5 

43 

03474P 

5 

07 444P 

M 2 0 

02325P 

1686 

43 

03475P 



M2 0 0 

0 5 8 7 3 P 

3502 

5 

04757P 



M2 01 

0 5 6 7 8 P 

3503 

5 

0 5 0 0 7 P 



M2 0 2 

0 5 7 0 2 P 

3504 

5 

05022P 



>12 0 3 

05705P 

350 5 

5 

05032P 



M2 G 4 

057 IIP 

35 06 

5 

05Q42P 



M2 0 5 

05714P 

3507 

5 

Q5052P 



M2 0 6 

0 57.2 OP 

3508 

. 5 

05122P 



M2 0 7 

U5723P 

35 09 

5 

05062P 



M2 OB 

0 5 7 2 7 P 

351Q. 

5 

G5Q72P 



M2 0 9 

U5732P 

' 3511 

5 

G5102P 



M 21 

023J0P 

168 7 

43 

Q3532P 



M2 i 0 

0 5 7 3 6 P 

3512 

5 

04 73 7 P 



M 211 

0573 7P 

3513 

5 

04 7 6 7 P 



M212 

05743P 

3 to 14 

5 

04777P 



M2 2 

0 2' 3 3 5 P 

168 8 

43 

Q3533P 



M 22 0 

Q 5 756 P 

35.18 

5 

05412P 

3 

055IIP 

M 2 2 i 

0 5 7 6 4 P 

3 5 19 

5 

0Q412P 



M 2 22 

0 5 7 7 OP 

35? 9 

5 

0 4 5 6 6 P 



M2 2 3 

05775P 

3521 

5 

0552IP 



M2 2 4 

06033P 

353 0 

5 

05407P 

5 

0 5 5 0 4 P 

M2 25 

05752P 

3517 

>. S'' 

05415P 

5 

85515P 

M2 3 

0 2 3 4 2 P 

1689 

4 8 

03534P 



M2 3 0 

O&OOOP 

3522 

.. .5. 

0&143P 



M2 35 

U&Q05P . 

862 7 ■ 

5 

05112P 



M2 3b 

0574&P 

8514+1 

5 

0716OP 



M2 3 7 

05750P 

3516 

5 

07175P 



M2 4 

02352P 

1690 

5 

0220IP 



M2 4 0 

0 6010P 

35 2 6 

5 

06135P 



M2 41 

06022P 

352 9 

: .5 

0 4 & 6 i P 

5 

04863P 

M2 5 0 

06 037 P 

3 531 

5 

07545P 



' M2 51 

0 6 0 4 4 P 

.3532 

45 7 0 

07543P 



>125 2 

0 6 0 5 0 P 

8582+1 

5 

0 7 3 21P 



M2 5 3 

0&062P 

3532+2 

5 

Q7323P 



M2 5 4 

0 6 0 to { P 

3532+3 

9 

07337P 



M 2 55 

0 6 iJ 7 5 P 

3532+4 

5 

07341P 



M 2 6 

02357P 

1691 

5 

0 2 2 0 5 P 



M2 7 

02363P 

16 9 2 

5 

040 5-OP 



M 2 8 

0 2 3 6 4 P 

169 3 

5 

04 0 7 IP 



M2 9 

02367P 

.16 9 4 

5 

0 4 0 7 4 P 



M 2 9 X 

02371P 

1695 

5 

0 4114 P 



M3 G 

02374P 

169 6 

5 

04103P 



M3 1 

02376P 

1697 

5 

U4124P 



M3 2 

0 24 OOP 

169 8 

5 

04.134P 



M3 3 

U2402P 

1699 

5 

Q4143P 



M3 4 

024 U 6 P 

17 0 0 

5 

04176P 



M3 5 

0 24 0 7 p 

1701 

5 

0 4 2 0 7 P 



M 3 6 ' ' :* 

024IIP 

17 0 2 

5 

0422 OP 
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M3 7 

0 2 41 2 P 

1703 

5 

0 4 2 2 7 P 



M3 3 

u 2413 P 

17 0 4 

5 

U4236P 



M 3 9 

02414P 

17 0 5 

5 

0 4 2 4 6 P 



M4 0 

02416P 

170 6 

V: 5 

0 4 2 5 6 P 



M4l 

0 242 OP 

17 0 7 

5 

04266P 



M42 

02421F 

17 0 8 

5 

Q4276P 



H4 3 

02422P 

.17 0 9 

5 

0431 OP 



M4 4 

0 242 3 P 

1710 

5 

04323P 



M4 5 

02425P 

1711 

5 

043 3 OP 



M4 b 

Q2426F 

1712 

.5 

04335P 



M 4 7 

0 243 OP 

1713 

5 

0 4 3 4 2 P 



M48 

02431P 

1714 

r ! 

04352P 



M 4 9 

0 24 3 2 P 

1715 

04357P 



M5 0 

02435P 

1716 

5 

84364P 



MSI 

. 02437P 

1717 

43 

04453P 



M5 2 

02442P 

1713 

43 

04454P 



MS 8 

0 2 4 43 P 

1719 

43 

Q4455P 



H5 4 

0 2 4 4 4 P 

1720 

43 

04456P 



MSS 

G 2 4.4.6 P 

1721 

43 

04457P 



M56 

02447P 

1722 

43 

0446 OP 
8446 IP 



M 5 7 

02450P 

1723 

43 



M5 8 

02 45 IP 

1724 

43 

04462P 



MS 9 

02453P 

1725 

43 

0 4 4 6 3 P 



Mb 0 

U 245.4 P 

172& 

43 

04464P 



M61 

02455P 

1727 

43 

04465P 



Mb 2 

Q2+56P 

1728 

43' 

0446&P 



Mb 3 

0246 OP 

.1729 

43 

0447 OP 



M64 

02461P 

1730 

43 

04467P 



Mb 5 

024 62 P 

1731 

43 

04472P 



M66 

G2463P 

1732 

5 

01747P 



M o 7 

0247 OP 

17 33 

5 

017 HP 



M 6 3 

02475P 

1734 

5 

0172 0 P 



M7Q 

0 25 OOP 

1735 

43 

03426P 



H 71 

025Q4P 

17 3 6 

5 

00203P 



M7 2 

025 HP 

1737 

5 

0 0 2 0 7 P 



M7 3 

02515P 

173 3 

... 5 

8,021 IP 



M 74 

0 2 5 2 5 P 

1739 

5 

00215P 



M75 

LS2523P 

.1 7 k 0 

5 

0.0217P 



M 7 7 

0 2 5 4 2 P 

1741 

5 

0Q221P 



M/8 

02544P 

17 4 2 

5 

00223P 



M 7 9 

0 25 5 3 P 

174 3 

5 

0Q236P 



M3 0 

0256 OP 

■L f 4 4 

5 

00274P 



M8 1 

0 2 5 6 2 P 

1 7 4 5 

5 

00384P 



Mb 2 

02563P 

174 6 

5 

0 G 3 2 0 P 



Mb 4 

0 25 65 P 

174 7 

43 

0.0 3 3 IP 



M8 5 

0 2 5 b 6 P 

1748 

43 

00332P 



Mb 6 

02567P 

1.7 4 9 

43 

Q0333P 



Mb 7 

0257 IP 

17 5 0 

lit. 

“f 

0 0 3.34P 



M8 8 

02573P 

1751 

43 

00335P 



M 8 9 

02574P 

1752 

4 3 

0 0 3 3 6 P 



M 9 0 

02576P 

17 53 

43 

U0337P 



M 91 

0 2577 P 

1754 ■ 

43 

0034OP 



M92 

026 0 OP 

1755 

5 

00352P 



M 9 3 

02601P 

17 56 

' 5 

0 0 35 5 P 



M 9 4 

02603P 

175 7 

5 

30357P 



M9 5 

0 2 b i] 4 P 

1758 

5 

3Q3S1P 



M 9 5 

026U&P 

1759 

5 

00265P 



M97 

U2607P 

176 0 

5 

Q0267P 



H 9 b 

0 261 OP 

1761 

5 

0C272P 



M 9 9 

0 2 611P 

1762 

5 

0 0 3 7 5 P 



HAXF3REQ 

00027 

155 

2589 

Q41Q6P 



MAXLUN 

0 014 4 

213 

1857 

0275IP 

2004 

0 3122P 




2414 

036.13P 

4347 

07233P 

MAXRECSZ 

02711 

4 08 0 

37 01 

0 6 3 0 6 P 



MG 

0.0424P 

672 

470 

0Q154P 

474 

00160P 




1489 

Q1754P 

1492 

017 57 P 




2194 

0 3 3 7 0 P 

2243 

0 34 31P 




265 2 

04161P 

2656 

04164P 




3864 

0 6 5 3 7 P 

3869 

0 6 5 4 4 P 




4511 

0 7 4 5 0 P 

4573+105 

07656P 

HC 01 

0 0 4 3 IP 

681 

489 

00177P 



MC 0 2 

0 0 44.5P 

69 0 

& 9 6 

3 0 4 5 3 P 

3317 

0 5435 P 

MG 04 

00463F 

704 

700 

00457P 



MC 05 

0 0 514P 

716+13 

716 + 3 

iJ 05 0 2 P 

716+6 

00505P 

MG 0 8 

0 052 DP 

729 

693 

0 045 OP 



MC 10 

0 053 OP 

738 

7 35 

0 0 5 2 5 P 



MG 12 

00537P 

74 5 

33+1 

00657P 

9 26 

0112 7 P 

MC 12 X 

0 0 5 4 3 P 

748 + 1 

774+7 

00604P 



M C13 

00555P 

755 

744 

00536P 




2215 03414P 
4350 07236P 

476 0Q162P 
1854 02746P 
.2267 03447P 
2766 04374P 
4177 06750P 


2246 03434P 
4406 073Q3P 

685 00440P 
1969 03101P 
2306 Q 350 OP 
2771 0440QP 
4180 06753P 


2270 03452P 
4456 Q7357P 

1457 01714P 
2001 03117P 
2541 04022P 
2774 04403P 
4381 07266P 


2321 03516P 


1470 017 3IP 
2146 03314P 
2638 04154P 
2895 04562P 
4400+1 07276P 
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CP 

MG 13 X 

0 0 5 7 0 P 

7 64 

754 

0 0 554P 

774 + 6 

0 0 6 03P 


MG 14 

U 0 5 7 4 P 

768 

4 64 

0 014 6 P 




MG 2 0 

0 042 IP 

668 

7 03 

00462P 

737 

0 05 27 P 


MC 32 

GU576P 

772 

686 

0044IP 



ft 

MG 44 

0 060 OP 

774 + 2 

750+3 

0 054/P 

■> 



MESSAGE 

0 12 6 6 P 

10 94 

16 

00166P 

13 

0 0 24 OP 





582 

0 0 33 0P 

13 

0 0 3 4 3 P 





13 

01722P 

13 

02160P 

0 




13 

Q4116P 

13 

04126P 




13 

04222P 

13 

04231P 





13 

043 Q OP 

13 

Q4312P 


• . : : ' 



13 

04354P 

13 

Q4361P 

o 




13 

0474IP 

13 

0 4 7 61P 

' ■ ' 



13 

05034P 

13 

05Q44P 





13 

Q51.14P 

13 

05124P 





13 

07162P 

13 

07177P 

o 

MESSAGE2 

012 7 0 P 

1096 

2582 

04U73P 

27 93 

04425P 

MF0Q2 

0 40 1 4 P 

2583 

2557 

04 04IP 

4212 

07004? 


MFQ0 3 

U 4 i 0 3 P 

2583 

2581 

04072P 




MF3 04 

04117P 

2596 

2618 

04.14 OP 



o 

MFB06 

0412QP 

2597 





MFBLK01 

04 0 37P 

2555 

255 0 

04032P 




M r 3 L K R c.Q 

0 0 014 

132 

2551 

04033P 

2584 

04077P 


MFBLKSET 

00013 

13 Q 

2562 

04046P 

3394 

0 553 5P 

o 

MF3LKSR 

0402 3P 

254 3 

33+1 

00715P 



M 10 2 

0 3 21 2 P 

2056 

2052 

03207P 




MI ADD 

0 0 01 2 

1310 

2054 

0321QP 



o 

Mi LOG 

0 0 013 

1309 

2067 

03225P 



MIR 

0 3210 P 

2054 

33+1 

0Q720P 



MPE 

0020 OP 

491 

414 

0G067P 




MPV 

0 0 21 3 P 

5 06 

413 

00066P 



o 

MSFEQUIP 

04476P 

284 3 

2U16 

03136P 



* h r 

0 0 0 0 5 

196 





MTEQ01 

04527P 

28 6 8 

2851 

045 0 6P 




MTEQ02 

0 4 5 3 6 P 

2.375 

2879 

04542P 



o 

MTEQ04 

0 4 5 4 6 P 

2883 

2385 

0 4 5 5 0 P 



MTEQ06 

0 4 5 5 0 P 

2885 

2876 

04537P 



MTEQUIP 

Q4477P 

.2849 

2014 

03134P 




N 

010410 

4068 

415 0 

06716P 

4165 

0&734P 


* MDIT16 

0 2 & 6 6 P 

18 0 0 





o 

N 3IT 2 3 

G2664P 

1798 

1966 

03876P 

2129 

033G6P 

NCPL 

010:300 

4056 

362 7 

06211P 

3 752 

06360? 


NOME 

06121P 

35 39 

3962 

0.6 6 62 P 




* NULL 

00010 

199 





o 

MWP3 

01031C 

4 05.7 

3628 

06212P 

375 0 

13 6 356 P 




3854 

9 65 2 5P 




oauF 

0 0407C 

3 2 3 

■ 898 

01102P 

9 07 

01113P 

o 




11,48 

013 4 2 P 

. 1372 

015.7 3 P 




57 7 2 

'0640 4 P 

3782 

0S416P 

OdUFBIT 

0 010 0 

265 

368 

Q 0 B15 P 

472 

00156P 





981, 

01157.P 

907 

01177P 





11.16 

■0130 3P 

11.19 

01.306P 

o 




3890 

065.0 7 P 

3841 

06510 P 

OBUFP 

300120 

318 

892 

01074P 

9 04 

oiiiop 





10 16 

0122. IP 

1024 

01 23.1 P 





3 6 ‘"4' i 

06512P 



o 

OC 0 4 

■Jill OP 

90 4 

889 

0107IP 



OCEXIT 

0.1. 0 6 4 P 

882 

6 66 

010 44P 

868 

01046P 


OCLP 

010 6 6 P 

886 

860 

01037P • 



o 

OCrODT 

01135 P 

Q £|, £ 3 , 

5 70 

00 314 P 

947 

Oil37 P 




50 

0 4 2 4 5 P 

50 

Q4255P 

0CTPRIN1 

0 113 0 P 

939 : . 

51 

00303F 

57 

00371P 


OC TTY 

. 01040P 

862 

858 

010 3 5 P 



o 

DC TV_ 

0 1 0 6 & P 

385 

859 

U1036P 



Ofil e m am 

Q1022C 

4 05 2 

35 77 

0 616 0 P 

3732 

0 6 3 3 5 P 

OLLP 

0115&P 

980 

970 

01146P 




OLLP02 

0 1 17 6 P 

99 6 

937 

0116 5 P 

989 

01167P 


OLTTY 

01147P 

97.2 

968 

0.1144P 



o 

0 L T V 

012 0 3 P 

1002 

969 

01145P 



01 TV 02 

0122 OP 

.1015 

10 45 

01242P 




DLTV03 

01221P 

1016 

1141 

01334P 




0 L r V 0 4 

0123 OP 

1023 

1019 

012 2 4 P 



o 

OOPS 

0 7 5 3 4 P 

4563 

4559 

07 5 3 9P 



1 00 PS 01 

07537P 

4566 

45 69 

0 7 5 4 2 P 




I OPABORT 

00 4 0/P 

657 

415 

0 007 OP 




! OP TERM 

04563P 

2903 

417 

00072P 



o 

| OUTBUF 

U1234P 

1 0 3 9 

746 

0054 OP 

7 51 

00565P 




2972 

0467 IP 

3039 

0513IP 


UUTCHAR 

013 3 IP 

854 

477 

00.163P 

942 

011.53P 


O 


3401 05543P 


554 0Q271P 
605 0Q354P 
1645 0 217IP 
13 U4136P 
13 Q424QP 
13 04325P 
13 04366P 
13 0477.1P 
13 O5054P 
16 05411P 


3011 04714P 


13 00276P 
13 0Q363P 
13 G4Q52P 
13 04145P 
13 0425 OP 
13 04332P 
13 D4435P 
13 Q5001P 
13 05064P 
16 05414P 


13 Q0306P 
1096 Q1270P 
13 Q4076P 
13 0420 OP 
13 04 26 OP 
13 04337P 
13 0457 OP 
13 05Q11P 
13 05074P 
16 05417P 


13 00322P 
13 Q1713P 
13 04105P 
13 04211P 
13 04270P 
13 04344P 
13 04665P 
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0317CP 




20 74 

03233P 

2080 

0 324 IP 

2 096 

0 3 2 61P 

2103 

0 3270 P 

2109 

03274P 

2148 

03316P 




21S 8 

03362P 

2190 

03364P 

2196 

Q3372P 

2198 

03374P 

22 0 2 

034OOP 

2206 

03404P 




22 08 

03406P 

2210 

0 341OP 

2213 

03412P 

2218 

03417P 

2249 

03437P 

225.1 

03441P 




2273 

03455P 

2279 

03463P 

2308 

Q3502P 

2312 

03506P 

2314 

0 351 OP 

2316 

03512P 




2313 

0 3 5 14 P 

2 324 

0 3 5 21P 

2408 

G3605P 

2412 

0361IP 

2421 

03622P 

2428 

0 3 6 31P 




24 3 4 

03637P 

2454+4 

03667P 

2454+10 

03675P 

2480 

0 373 OP 

2575 

04064P 

2783 

04413P 




2787 

Q4417P 

28 04 

04441P 

2306 

04443P 

2893 

04560P 

2983 

04673P 

2984 

04674P 




2987 

0 4 6 7 7 P 

2991 

0 4 7 0 3 P 

2992 

0 4 7 0 4 P 

2993 

04705P 

2997 

04706P 

3005 

04710P 




3 0 09 

047.13P 

3021 

0 47 30P 

3023 

04732P 

30 26 

04735P 

3102 

05145P 

3123 

0517 OP 




3126 

05173P 

3150 

0-5 21 IP 

3214 

05275P 

3216 

0 5277 P 

3222 

053OSP 

3245+1 

05334P 




32 8 5 

054OOP 

3312 

0 5 4 3 0 P 

3313 

05431P 

3333 

0 5455 P 

3335 

05457P 

3409 

Q5544P 




3410 

05545P 

3 412 

05547P 

3415 

0 5 5 5 2 P 

3418 

05555P 

3421 

Q5557P 

3423 

05561P 




■i 4 2 4 

G5562P 

3426 

05563P 

3428 

0 5 5 6 5 P 

3429 

0 5 5 6 6 P. 

343 0 

05567P 

3431 

0557 0 P 




3438 

as575? 

3440 

0 5577 P 

3441 

0 56 0 OP 

3443 

Q 5601P 

3445 

05603P 

3446 

05604P 




344 7 

0 5605P 

3448 

05606P 

36 3 6 

06216P 

3688 

0 6271P 

3689 

Q6272P 

3692 

06275P 




37.06 

06313P 

37 07 

G6314P ' 

3720 

0633OP 

3721 

0 6 3 31P 

3736 

06341P 

3744 

06350P 




3 ? 6 7 

0 6 3 6 5 P 

.5836. 

06503? 

3847 

0 6 516 P 

3 84a 

0' 6 517 P 

3849 

06520P 

3853 

0 6 5 2 4 P 




d 3 8 2 

06535P 

3879 

06553P 

3861 

06555P 

3883 

06557P 

3937 

06634P 

3938 

G6635P 




3962 

06662P 

4158 

06.726P 

4160 

06730P 

4161 

0 6 / 31P 

418 8 

06754P 

4207 

0 6 7 7 7 P 




^ 4241 

07023P 

4251+1 

07036P 

425.1 + 3 

0704OP 

4251+11 

0705QP 

4251+17 

07Q56P 

4257+1 

07Q72F 




4276+7 

0712OP 

4284+5 

0 7.137P 

4295 

07145P 

4296 

07146P 

4315 

07204P 

4316 

07205P 




4352 

0724OP 

4’36 i 

0 7.242Pv- 

43 65 

07245P 

4 367 

07247P 

4387 

07272P 

44 0 4 

07 3 0 IP 




4 4 9 6 

Q7303P 

4419 

.07 315 P 

4459 

07362P 

446 0 

07363P 

4464 

07367P- 

4466 

07371P 




4485 

0 7 43 OP 

4521 

07462P 

4524 

07465P 

4527 

07470P 

4541 

07506P 

4554 

07523P 




4560 

0753 IP 

4 5 6 3 

07534P 

4567 

0754OP 

4569 

0 7542 P 

4573+15 

07547P 

4573+17 

Q7551P 




4573+18 

67552P ' 

4573+19 

07553P 

4573+21 

0 7555P 

4573+22 

0 7556P 

4573+23 

07557P 

4573+68 

G7612P 




4573+97 

07647P 

■ 45 73 + 99 

07.6 SIP 

4573+102 

Q7654P 







X 3 SAVE 

0104 7 C 

4 0 74 

3720 

0633 OP 

3757 

06365 P 

. 38 36 

06503P 

38 53 

0 6524P 





X A 81) 1 

0 3 3 0 3 P 

2123 

21.38. 

033Q7P 











XABORTR 

0 3 3 01 P 

2121 

33 + 1 

0103OP 









1615+1 

Q2142F 

XRcU 

0 0 0 0 0 

8 i 

4 66 

0915OP 

5 07 

00214P 

75 3 

00553P 

774 + 4 

aasoip 

1377 

016Q0P 



1995 

030 07P. 

1915 

03021P 

1919 

0 3 0 2 5 P 

1922+1 

03030P 

1929+1 

03037P 

1952+1 

Q3057P 




1973+1 

03105P 

1975+1 

0 3 10 7 P 

2019 

03146P 

2021+13 

0 317 0 P 

2141+1 

03311P 

2153+1 

0 3 3 2 6 P 




2158+1 

03333 P 

22 06 

0 34 04P 

2251 

03441P 

2279 

0 3463P 

2314 

0 351 OP 

2368 

03552P 




2470 

QS716P 

2524 

04001P 

2539 

0 4 0 2 0 P 

2552 

G4034P 

2567 

04054P 

2585 

0410 OP 




2598 

Q41.0 7P 

2 6.12 

0 4130 P 

287 2 

04533P 

2893 

0 4560P 

2939+1 

04626P 

2941+1 

0 463 0 P 




2943+1 

0463 ZP 

2945+1 

04634P 

2947+1 

04636P 

2943+1 

0 4640P ' 

2952 

Q4642P 

2958 

0465 OP 




2958+3 

0 4 6 5 3 P 

2960 

04655P 

2992 

0 4 7 0 4 P 

3 0 05 

04710P 

3 012 

04715P 

3015 

0472 OP 




3026 

04735P 

3094+1 

05137P 

3096+1 

0514 IP 

3102 

05145P 

3210 

05271P 

3212+1 

0 5 2 7 4 P 




3236+1 

05323P 

3256+1 

05346P 

3261+1 

Q5353P 

3265+1 

0 5357P 

32 73 

05365P 

3274+1 

05367P 




327/6 + 1 

0537IP 

328.3 + 1 

05377P 

3307 

05 424 P 

3346 

05472P 

3351 

05477P 

3387 

0553 0 P 




3391 

0.5533P 

3395 

Q5538P 

3400 

05542P 

3579 

0 6162.P 

4251+3 

0 7 0 40 P 

429 6 

0 71 4 6 P 




4 361 

07242P 

43 74 

0 72 55 P 

43 8 0 

07265P 

4387 

0 7272 P 

4419 

07315P 

4428+15 

07333P 




4464 

0 7 3 6 7 P 

4506 

0 7 442 P 

4530 

07473P 

4540 

07477P 

454 A 

Q7511P 

455 0 

07517P 




4558 

0 7 5 2 7 P 

4567 

0 7 5 4 0 P 

4573+17 

07551P 

4573+22 

07556P 





XRET 

U4020P 

25 3 9 

2563 

04047P 










00217P 

Z 

0 0 0 0 Q P 

34 3 

5 

0 016 4 P 

5 

0 0203P 

5 

00207P 

5 

00211P 

5 

00215P 

5 




5 

0 0221P 

5 

00223P 

5 

00236P 

5 

0 0265P 

■ 5 

00267P 

5 

00272P 




5 

00274P 

5 

UU304P 

5 

00320P 

43 

00331P 

43 

00332P 

43 

00333P 




43 

Q0334P 

43 

0 0 3 35 P 

43 

0 0 3 3 6 P 

43 

00337P 

43 

0 0 3 4 0 P 

5 

0 0 3 41P 




5 

00352P 

5 

0 0 355P 

5 

0 0 3 5 7 P 

5 

0.0361P 

' 5 

00375P 

5 

00401P 




5 

00405P 

5 

0 0 412P 

1094 

01266P 

5 

01711P 

5 

01720P 

5 

01747P 




5 

02146P 

5 

0 215 6 P 

5 

0.2164P 

5 

02166P 

5 

02175P 

5 

02177P 




5 

02 20 IP 

5 

02203P 

7 :: - .'' ./ .■S, 

02205P 

43 

0 3 2 0 0 P 

43 

032 0 IP 

43 

0 3 2 0 3 P 




43 

03204P 

43 

03205P 

43 

03425P 

43 

03426P 

4 3 

03427P 

43 

034 3 0 P 




5 

0 3 4 4 5 p 

43 

0 3471P 

43 

03472P 

43 

03473P 

43 

03474P 

43 

03475P 

1 : 



43 

03531P 

43 

0 3532 P 

43 

03533P 

43 

03534P 

5 

0 3 7 6 6 P 

5 

0405 0 P 
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5 

040 7 IP 

5 

0 4 0 7 4 P 

5 

0 410 3 P 

5 

0 4114P 

5 

Q4124P 

5 

5 

Q4143P 

5 

04176P 

5 

042G7P 

5 

04220P 

5 

Q4227P 

5 

5 

0 4 2 4 6 P 

5 

04256P 

5 

04266P 

5 

04276P 

5 

Q4310P 

5 

5 

0433 OP 

5 

Q 4335P 

5 

04342P 

5 

04352P 

5 

04357P 

5 

5 

04433P 

4 3 

0 4 4 5 3 P 

43 

04454 P 

43 

0 4 4 5 5 P 

43 

04456P 

43 

43 

04460P 

4 3 

0 44 S-l P 

43 

Q4462P 

43 

04463P 

43 

04464P 

4 3 

43 

0 4 4 b 6 P 

4 3 

Q4467P 

43 

0447QP 

43 

04471P 

43 

04472P 

43 

43 

04474P 

43 

04475P 

5 

04566P 

5 

04661P 

5 

04663P 

5 

5 

■ 0 4 7 5 7 P 

5 

0 4 7 6 7 P 

5 

04777P 

5 

05007P 

5 

05022P 

5 

5 

05042P 

5 

05052P 

5 

05062P 

5 

05072P 

5 

05102P 

5 

5 

05122P 

5 

Q5407P 

5 

Q5412P 

5 

05415P 

5 

05504P 

5 

5 

05515P 

v'3'.v' 5 

0552IP 

5 

06135P 

5 

06143P 

3862 

0 6 5 3 5 P 

5 

5 

07175P 

5 

07321P 


07.323 P 

5 

0 7 3 3 7 P 

5 

07341P 

5 

4570 

07543P 

5 

07545P 








428 

00103P 

2459- 

Q3715P 

2951 

Q4641P 

2990 

04702P 

3427 

05564P 

3444 

3476 

05642P 

3865 

06540 P 

3867 

Q6542P 

4573+16 

07550P 






04323P 
0 4 3 6 A P 
04457F 
Q4465P 
0 4 4 7 3 P 
0 4 7 3 7 P 
05032P 
05112P 
05511P 
07160P 
07444P 

05602P 


